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A3SB«LE RBvfISlON 249 CF AGC PBOQRAM COUMSUS ffif NASA 2021111-041 
DOERPRETSR 


20*35 OCT. 28,1968 SATOAP .007 PACE 1077 
US8B«S PAOB NO. 1 EO S3 


Roooi section 1 dispatcher 


moot Bmcf TO the interpreter. INTPHBT sets LOC to the first mSTRUCTICN, bankset to the bbank op the 
R0004 object interpretive program, and INTBIT15 TO THE BITlS CONTENTS OF FBANK. INTERPRETIVE PROGRAMS MAY IN 
Roooe VIRTUALLY ALL BANKS PRESENT UNDER ANY SUPER-BANK SETTING, WITH THE RESTRICTION THAT PROGRAMS IN HIGH BANKS 
ROODS (BIT15 OP FBANK = D DO NOT REFER TO LOtBANKS, AND VICE-VERSA. THE INTERPRETER DOBS NOT SWITCH SUPERBANKS. 
ROOlO E-BANK SWITCHING OCCURS WHENEVER GENERAL ERASABLE <100 - 3777) IS ADDRESSED. 


0012 





6006 




BLOCK 

03 


0013 

HEP 

1 







CIXJNT 

03/INTER 


00135 





6006 

0 0003 

1 

INTPRET 

RELTNT 



0014 





6007 

0 0006 

1 


ExTero 


ffiT LOC TO THE WORD FOLLOWING THE TC. 

0015 

REP 

7 

LAST 

1075 

6010 

22 164 

1 


OtCH 

LOC 


0016 

HEP 

15 

LAST 

1075 

6011 

3 0006 

1 

♦2 

CA 

bbank 

INTERPRETIVE BRANCHES PINIai HERE. 

0017 

REP 

2 

LAST 

1075 

6012 

54 165 

1 


TS 

BANKfflT 


0018 

REF 

43 

LAST 

987 

6013 

7 4674 

1 


MAaC 

BITT5 

get ISTH bit FOB INDEXABLE ADDRESSES. 

0019 

HEP 

5 

LAST 

67 

6014 

54 115 

0 


TS 

INTBIT15 


0020 

REP 

8 

LAST 

1075 

6015 

54 023 

1 


TS 

EDOP 

make sure no instbuCticns left over 

0021 

REP 

1 



6016 

1 6037 

1 


TCP 

NEWOPS 

PICK UP OP CODE PAIR AND BEGIN. 

0022 

REP 

18 

LAST 

1077 

6017 

22 006 

1 

INTRSM 

U<CH 

BBANK 

RESUFE SUSPENDH) INTERPRETIVE JOB 

0023 

HEP 

226 

LAST 

891 

6020 

1 6011 

0 


TCP 

INTPHBT +3 


R0024 



OLCAD LCADS MPAC, MPAC +1, LEAVING ZERO 

IN MPAC +2. 


0025 





6021 

0 0006 

1 

DLOAD 

EXTEND 



0026 

HEP 

1 



6022 

5 0116 

1 


INDEX 

ADORWO 


0027 





6023 

3 0001 

0 


DCA 

0 

LC«D DP C(C(AD0RWD)) INTO MPAC,MPAX +1 

0028 

HEP 

289 

LAST 

891 

6024 

52 155 

1 

SLOADz 

DXCH 

MPAC 


0029 

REP 

209 

LAST 

1071 

6025 

3 4714 

1 


CAP 

zero 

ZERO MPAC +2 



ASS»«^ 24, OP AOC PHOOHAM COUSSUS BT NASA 2021111-041 20*35 OC>r. 20.1,08 SA1«AP .007 FA« 1070 

DneiiFSBTEs 

USEIUS PAOS JR). 2 BO S3 

At THB E(© op most INSTRUCtICKS, COnnOL IS Glvai to IMNZIO to dispatch the NE)CT OPBBATICN. 

BBP 290 last 1077 0020 54 150 1 TS IVAC *2 AND DBCLARB DP MtBH 


0033 

Reap 

4 

LAST 533 

8027 

54 163 1 

NERMODE 

TS 

JOJE 

0034 

0035 

RBP 

REE 

3 

17 

last 1077 

last 1077 

0030 

8031 

3 0165 0 
54 006 0 

DANZIG 

CA 

TS 

banksbt 

BBANK 

0030 

0037 

A0038 

REP 

REP 

f 

1 

last 1077 

0032 

0033 

10 023 1 

1 6046 1 

NOIBNKar CCS 
TCP 

BCWP 

OP JUMP 

0039 

0040 

REP 

REP 

5 

1 

LAST 828 

0034 

0035 

10 067 1 

1 5063 0 


CCS 

TCP 

NEWJOB 

CMAN02 

0041 

R004Z 

0043 

0044 

0045 
0040 

REP 

US' 

REP 

REP 

8 

9 

2T8 

1 

last 1077 

ITBACE <i) 

last 1070 

last 1073 

0036 24 164 1 

refers to oNEwOPSo. 

6037 50 164 1 

8040 3 0000 1 

6041 10 000 0 

6042 1 6331 1 

NBUOPS 

INCH 

INDEX 

CA 

CCS 

TCP 

LOC 

LOC 

0 

A 

DOSTOHE 

0047 




6043 

00177 0 

Lourr 

OCT 

177 

0040 

004, 

REP 

REP 

10 

6 

last 1078 
last 385 

6044 

6045 

54 023 1 

7 6043 1 


TS 

MAac 

HXTP 

LOwt 

0050 

0051 

0052 

REP 

REP 

REP 

13 

14 

1 

last 372 
last 1078 

6046 

8047 

6050 

54 020 1 
10 020 1 

1 6216 0 

Op JUMP 

TS 

CCS 

TCP 

CYR 

CYR 

OPJUMP2 

0053 

REP 

1 


6051 

1 6712 1 


TCP 

EXIT 




AND DBCLARB DP MCSB 

PROLOae PQB MQDS-CHAJRIINO INSTRUCTICNS. 


8BT BBANK before TESTING NEWJQB SO THAT 
IT MAY BE SAVED DIHBCTLY BY CHANJQB. 


fflB IP an ohdbr cgdb is left over FRCM 
THE LAST PAIR REIRIEvH). IP SO, BXECtnE. 
BDOP IS set to ZERO Of ITS BB-^ITING. 


fflB IP A JOB OP HIGHER PRIORITY IS 
■ PHEffl4T, AND IP SO, CHANGE JOBS. 


AIVANCB the LOCATION COUNTER. 


B7TRY TO BEGIN BY PIC)(IN0 OP CODE PAIR. 
MAY BE AN OPCODE PAIR OH A STORE CODE 
TEST SIGN AND GET DABStA). 
process store code 


QP CODE PAIR. LEAVE THE OIHER IN EDOP 
■here CCS HX)P WILL HONOR IT NEXT. 


LOW© ENTERS HERB IP A RKHT-HAND OP 
CCDE IS TO BE PROCESSED. TEST PREPICES 
TEST SECOND PREFIX BIT. 


♦0 OP CODE IS EXIT. 
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L INIBRPRBISR USEH«S PAGE NO. 3 EO S3 

P0054 PROCESS ADDRESSES tHICM MAY BB DIRECT, INDEXED, OR REFERENCE THE PoaflX>»N LIST. 


0050 

REP 

T4 

LAST 1059 

6052 

7 4712 

0 

ADDIfflSS mask 

Bin 

Sffl IP ADDRESS IS INDEXS). CYR CONTAINED 

0057 

REP 

27T 

lAST 1078 

6053 

10 000 

0 

CCS 

A 

400XX, SO BIT 1 IS NOE AS IT WAS IN CYR. 

0058 

REP 

1 


6054 

1 6115 

0 

TCP 

INDEX 

FORM INDEXED ADIWESS. 

0058 

REP 

10 

LAST 1078 

6055 

SO 164 

1 

DIHADHBS INDEX 

LOG 

LOCK AHEAD TO NEXT WORD TO SEE IP 

0000 




6056 

4 0001 

1 

OCT40001 CS 

1 

address is given. 

0001 

BEP 278 

LAST 1078 

6057 

10 000 

0 

CCS 

A 


0002 

REP 

1 


6060 

1 6164 

0 

TCP 

puatjp 

IP NOT. 

0003 




6061 

77773 

1 

NBQ4 DEC 

-4 


0064 

REP 

11 

LAST 1073 

6062 

24 164 

1 

INCr 

LOC 

IP SO, TO aiOW WE PIQOED UP A WORD. 

0065 

REP 

2 

LAST 1077 

6063 

54 116 

0 

T3 

ADDfMD 




ASSMIE REVISIOW 249 OP AOC PBOGBAH COLOSSUS BY NAS* 2021111-041 

V DnaSPBBIBR 


F0066 



PINAL DICESTION OP DIBE(?r ADDRESSES OP OP COES WITH 0 i PI 

B00S8 

REQUIRED 12-BIT SUB-ADDRBSS 

IS LEPT in ADDKSO, WITH ANY REQUIRED E 

ROOTO 

THAN 450 ARB TAKSC TO BE RELATIVE TO THE WORK AREA. THE OP (XBB IS 

00T2 

REP 

1 


8084 

6 6220 1 


AO 

-OIDVAC 

00T3 

REP 

279 

last 1079 

6085 

10 000 0 


CCS 

A 

MT4 

HEP 

1 


6086 

6 7712 1 


AD 

-aODERAS 

00T5 

RBP 

1 


6067 

1 6074 0 


TCP 

IBBASTST 

00T6 

REP 

10 

last 840 

8070 

3 0120 1 

NETTBRO 

CA 

FlXUX! 

OOTT 

REP 

3 

last 1079 

6071 

26 116 0 


ADS 

ADDRND 

00T8 

RBP 

15 

LAST 1078 

6072 

50 020 0 

ITR15 

INDEX 

CYR 

OOT9 

REP 

1 


6073 

7 6242 1 


7 

INDJLMP -1 

0080 




6074 

0 0006 1 

IBBASTST 

EXTEND 


0081 

REP 

1 


6075 

6 6105 0 


B2MP 

CEADDR 

0082 

REP 

13 

last 1075 

6076 

7 4747 0 


mask 

LOWIO 

0083 

RH' 

14 

last 1080 

6077 

6 4747 1 


AD 

LONIO 

0084 

RBP 

4 

last 1080 

6100 

56 116 1 


XCH 

ADDRWD 

0085 

RBP 

6 

LAST 1077 

6101 

6 0115 1 


AD 

INTBITlS 

0086 

REP 

11 

last 1075 

6102 

54 004 1 


T3 

pbank 

OOBT 

REP 

16 

last 1080 

6103 

50 020 0 

ITR12 

INDEX 

CYR 

0088 

REP 

2 

last 1080 

6104 

7 6242 1 


7 

INDJUMP -1 

0089 

REP 

8 

LAST 1071 

6105 

7 4373 0 

OBADOR 

mask 

L0W8 

0090 

RH' 

3 

LAST 372 

6106 

6 4744 1 


AD 

OCT1400 

0091 

REP 

5 

LAST 1080 

6107 

56 116 1 


XCH 

ADDRWD 

0092 

IffiP 

46 

LAST 1071 

6110 

54 003 0 


TS 

EBANK 

0093 

REP 

17 

LAST 1080 

6111 

50 020 0 

ITRlO 

INDEX 

CYR 

0094 

RBP 

3 

LAST 1080 

6112 

7 6242 1 


7 

INDJLMP -1 


20’35 OCT. 28,1988 SATRAP .OOT PACE 1080 

Ua!R>S PAOB NO. 4 EO S3 

PIX IS DO® HEBE. IN EACH CAgE, THE 
R P bank SWIICHINO DCNE. ADDRESSES LESS 
ON IN bits 1-5 OK CYR WITH BIT 14-1. 

SEE IP ADDRESS RELATIVE TO WORK ABBA. 

IP NOT, SEE IP IN GB<EHAL ERASABLE. 


IP SO, LEAVE THE MODIPIED ADDRESS IN 

addrwd and dispatch. 

THIS INDEX makes THE NEXT INSTRUCTICN 
TCP INDJUHP + OP, EDITING CYR. 


QO PROCESS GPa*BHAL-BRASABLE ADDRESS. 

PIXED BANK address. RESTORE AND ADO Bis. 
snitch banks and LEAVE SUBADDHESS IN 
ADDRWD POR OPERAND RETRIEVAL. (THIS 
l«TH(I) PRECLUDES USB OF THE LAST 
LOCATION IN EACH FBANK.) 





ASSBBLB HBVISIQK 249 OP AGO PROGRAM COUJSSUS BY NASA 2021111-041 
interpreter 


20*35 OOP. 28.1988 SATRAP .flOT PASS 1081 


UffiHaS PAGE NO. 5 Eo S3 

= ss^ 

s ;:!j i:ir, sr . 


0100 

IffiP 

1 


6113 

3 7702 0 

DCDLCAD* CAP 

DUMIMt 

0101 

REP 

18 

last 1080 

6114 

54 020 1 


TS 

.CYR 

0102 

HEP 

19 

last 1080 

6115 

3 0120 1 

INDEX 

CA 

PIXLOC 

0103 

REP 

1 


6116 

54 130 1 


TS 

INDEXLOC 

0104 

REP 

12 

last 10T9 

611T 

24 164 1 


INCR 

LCC 

0105 

HEP 

13 

IAST 1081 

6120 

50 164 1 


INDEX 

LOC 

0108 




6121 

4 0000 0 


CS 

0 

OlOT 

BBF 280 

LAST 1080 

6122 

10 000 0 


CCS 

A 

0108 

HEP 

2 

IAST 1081 

6123 

24 130 0 


inch 

IITOEXLOC 

. 0109 




612A 

16 125 0 


NOOP 


0110 

REP 

6 

last 1080 

6125 

54 116 0 


TS 

ADORWD 

0111 

HEP 

2 

last 129 

6126 

7 7711 0 


mask 

HIGH 4 

0112 




6127 

0 0006 1 


EXTBTO 

0113 

HEP 

1 


6130 

1 6133 1 


BZP 

INDEX2 

0114 

REP 

T 

LAST 1080 

6131 

3 0115 1 


CA 

INTBITlS 

0115 

REP 

T 

LAST 1081 

6132 

26 116 0 


ADS 

ADDHWD 

0118 

REP 

3 

last 1081 

6133 

50 130 0 

INDeX2 

INDEX 

INDEXLCC 

OUT 

REP 

48 

LAST 882 

6134 

4 0046 1 


CS 

XI 

0118 

REP 

8 

last 1081 

6135 

26 116 0 


ADS 

ADDRWD 

0119 

HEP 

5 

LAST T37 

6138 

7 7713 1 


mask 

HKHg 

0120 




6137 

0 0006 1 


Exiaro 

0121 

REF 

1 


6140 

1 6153 1 


B2P 

INIWORK 

0122 

REP 

3 

last 1081 

6141 

7 7711 0 


wac 

HIGH 4 

0123 




6142 

0 0008 1 


EXT®ID 


0124 

REP 

1 


6143 

1 6155 1 


BzP 

inderase 

0125 

REP 

9 

LAST 1081 

6144 

3 0116 1 


CA 

ADDRWD 

0126 

REP 

12 

LAST 1080 

6145 

54 004 1 


TS 

FBANK 

0127 

REP 

15 

LAST 1080 

6146 

7 4747 0 


mask 

LOwio 

0128 

REP 

1 


6147 

6 4700 1 


AD 

2K 

0129 

HEP 

10 

LAST 1081 

6150 

54 116 0 


TS 

ADDHWD 

0130 

REF 

19 

LAST 1081 

8151 

50 020 0 

ITHll 

INDEX 

CYR 

0131 

REP 

4 

LAST 1080 

6152 

3 6242 0 


3 

INDJUMP -1 

0132 

REP 

20 

LAST 1081 

6153 

3 0120 1 

INCWORK 

CA 

PIXLOC 

0133 

REP 

1 


6154 

1 6161 0 


TCP 

ITR 13 -1 

0134 

REP 

4 

LAST 1080 

6155 

3 4744 1 

INDBRASB CA 

OCTlAOO 

0135 

REP 

11 

LAST 1081 

6156 

56 116 1 


XCH 

ADDHWD 

0136 

REP 

47 

LAST 1080 

6157 

54 003 0 


TS 

EBANK 

01 3T 

RBP 

9 

LAST 1080 

6160 

7 4373 0 


WSK 

1-0W8 

0138- 

REP 

12 

last 1081 

6161 

26 116 0 

-1 

ADS 

ADDHWD 


ffiT UP INDEX LOCATION. 

(ADDRESS ALWAYS Glvei) . 

INDEX 2 IP address STOHHl CCMPL&ENTED. 


14 bit address to ADDHwD. 

IP ADDRESS greater THAN 2K, ADD INTBITls 


DO AU>®(T, IWORING AND CORRECTING CVP. 
SEE IP ADDRESS IS IN WORK AREA. 

SEE IP LV PIXED BANK. 


IN PIXBD - SWITCH BANKS AND CREATE 
SUB-ADDRESS. 


.make ADDRwD RELATIVE TO WORK AREA. 


I 
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imraPHElBR 


USERsS PACE NO. 


Bo S3 


0139 

0140 


REP 


20 LAST 1081 
5 LAST 1081 


6182 

6163 


50 020 0 
3 6242 0 


111113 


itexx 

3 


CVR 

BaXJlMP -1 



Asa»«t8 BBVISIW 249 OP AOC PROOBAM COLOSSUS BY ICASA 2021111-041 20*35 OCT. 28.1900 SATRAP .007 PACE 1083 


PtgRP H BIgR 


USBavS PACE NO. T BO S3 


POai-«* ROrriNES. w®* no operand address is oivhi, the appropriate operand is taken from the push-down 
LIST. IN MOST cases THE MODE OP THE RESLL.T (VECTOR OR SCALAR) OP THE LAST ARITHfflTIC OPERATION PEHPOR)BD 
IS THE SAME AS THE TYPE OP OPERAND DESIRH) (ALL ADO/SIBTRACT £flC.). EJCQSPTICNS TO THIS CBffiHAL ROLE ABB LISTHD 
■BLOW (NOIB THAT IN EVERY CASE THE MODE REGISTER IS IST INTACT) ’ 


1. VXSC AfO V/SC WANT THE OPPOSITE TYPE OP OPERAND, E.Q., IP THE LAST OPEHATICN YIELDED A VECTOR 
IBSULT, VXSC WANTS A SCALAR. 

2. RE LOAD CODES fflOlXD LOAD THE AOtXPUATOR INDEPENDejT OP THE RESULT OP -fflE LAST OPERATION. THIS 
MXOIBS VLQAD, DLOAD, TLOAD, POOL, AND PDVL (NO PUatJP WITH SLQAD) . 

3. SOME ARIRWETIC OPERATIONS HajUIRS A STANDARD TYPE OP OPERAND REGARDLESS OP THE PREVIOUS OPERATION 
THIS INCUDES SIGN WANTING DP AND TAD REOUIHINO TP. 


•1ST 

mr 

1 


6164 

3 4374 0 

puatup 

(»P 

OCT23 

IP THE LOW 5 bits CF CYR ARB LESS THAN 

•isa 

•BP 

21 

LAST 1082 

8165 

7 0020 1 


mask 

CYH 

20, THIS OP BEOUIRBS SPECIAL ATTENTION. 

■159 

REP 

1 


8186 

6 8171 0 


AO 

-ocno 

(NO -0) . 

•180 

HEP 

281 

last 1081 

6187 

10 000 0 


CCS 

A 


•181 

REP 

1 


8170 

1 6202 0 


TO' 

HBQUP 

POB ALL CXDES GREATER THAN OCT 7 . 

•182 




8171 

77767 1 

-ocno 

OCT 

-10 


•183 

SB' 

2 

LAST 1020 

6172 

6 6061 0 


AD 

NEQ4 

WE NOW HAVE 7 - OP CCDE(MCD4). SEE IP 

0184 

■BP 

282 

LAST 1083 

8173 

10 000 0 


CCS 

A 

THE OP CODE (MQD4) IS THREE (REVERSE). 

•185 

RBP 

283 

LAST 1083 

6174 

50 000 1 


INDEX 

A 

NO - THE MODE IS DEFINITE. PICK UP THE 

•188 

RBP 

1 


6175 

4 6213 0 


CS 

NO.WDS 


•18T 

RBP 

2 

LAST 1083 

6176 

1 6204 0 


Tt!P 

BEGUP +2 


•188 

RBP 

S 

LAST 10T8 

6177 

50 163 0 


INDEX 

MODE 

POB VXSC AND V/SC wE VIANT THE REajIRED 

•189 

RBP 

1 


6200 

4 6211 1 


CS 

RBvCNT 

PUSHLOC DECHE-ENT WllHOUT CHANGING THE 

•ITO 

RBP 

3 

LAST 1083 

6201 

1 6204 0 


TCP 

RBGUP +2 

MODE AT THIS TIi«. 

OlTl 

RBP 

8 

LAST 1083 

6202 

SO 163 0 

BEGUP 

INDEX 

MCDE 

MOST ALL OP CODES PUSHUP HERE. 

•1T2 

RBP 

2 

LAST 1083 

6203 

4 6213 0 


CS 

NO. VOS 


01T3 

RBP 

1 


0204 

26 166 1 

♦2 

ADS 

PUaiLOC 


01T4 

RBP 

13 

LAST 1081 

6205 

54 116 0 


TS 

ADOHWD 


•ITS 

RBP 

22 

LAST 1083 

6206 

50 020 0 

ITR14 

INDEX 

CYR 


•1T8 

RBP 

6 

LAST 1082 

6207 

7 6 242 1 


7 

INDJLMP -1 

(THE INDEX makes THIS A TCP.) 

•ITT 




0210 

00002 0 


OCT 

2 

REVERSE PUSHUP DEC5®«NT. VECTOR TAKES 2 

•ITS 




6211 

00006 1 

BBVCHT 

OCT 

6 

WORDS, SCALAR takes 6. 

01T9 




8212 

00006 1 


OCT 

6 


•ISO 




6213 

00002 0 

NO.WD3 

OCT 

2 

CCNVENTICNAL DECHPMENT IS 6 VICBDS VECTTOH 

•181 




6214 

00003 1 

OCTAL3 

OCT 

3 

2 IN DP, AND 3 IN TPl 

0182 




6215 

00006 1 


OCT 

6 



I 





L INTEHPflBlER USIUS PAGE NO. 8 BO S3 

M183 test the SECCND PREFIX BIT TO SEE IF THIS IS A MISCBIXANEOUS OR A UNAHT/aiORT SHIFT OPERATION. 


0185 

Ra? 

23 

last 1083 

0218 

10 020 1 

0PJIM?2 

CCS 

CYR 

TEST ffiCCND PREFIX BIT. 

0186 

REF 

1 


621T 

1 6232 0 


TCF 

OPJIWP 3 

TEST THIRD BIT TO SEE IF UNARY OR ailFT. 

018T 




6220 

TTT22 0 

-BIWAC 

DEC 

-45 


R0168 



THE POUX)»INO routine PROCESSES ADDRESSES OP SUFFIX CLASS 10. 

THEY ARB BASICALLY WORK AREA ADOffl3SSES 

R0190 

IN THE RANGE 0 - 52, 

Erasable ecadr ccnsuvnts frcm loo 

- 3777. and FCADHS ABOVE THAT. ALL 15 BITS ABE AVAILABLE 

1*0192 

IN CCNTHAST TO SUFFIX 

1, IN «HICM ONLY Hffi LOOT ORDER 14 ARB AVAILABLE. 


0193 

REF 

14 

LAST 1081 

6221 

24 164 1 

isbitadh 

INCr 

LOG 

(BITRY HERB FRCM STCALL) . 

0194 

REF 

15 

last 1084 

6222 

50 164 1 


INDEX 

LOC 

PIQ( UP ADDRESS WORD. 

0195 




0223 

3 0000 1 


CA 

0 


0196 

REF 

5 

LAST 6T 

6224 

54 117 1 


T3 

PCLiai 

WB MAY NEED A SUBADORES3 LATER. 

019T 

REF 

1 


6225 

3 4750 1 


CAF 

L0(»7+2K 

THESE INSTHUCTICNS ABE IN BANK 1. 

0198 

REF 

13 

last 1081 

6228 

54 004 1 


T3 

FBANK 


0199 

REF 

24 

last 1084 

6227 

7 0020 1 


HA* 

CYR 


0200 

REF 

284 

LAST 1083 

6230 

SO 000 1 

ITRI 

INDEX 

A 


0201 

REF 

1 


6231 

1 6303 0 


TCF 

MISCJLMP 
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L IWIBHPRETBR 


USR>S PACE NO. 9 Bo S3 


P0202 



(XWPt^lE THE DISPAlCHlNa OP UNARY AND 

aiORT ailFT OPERATICNS. 

0203 

REF 

14 

cast 1084 

6232 

54 004 1 (3PJUMP3 

TS 

FBANK 

R0204 



ITHACE (a) 

refers to aopjiMPa*. 


0205 

REF 

25 

LAST 1084 

6233 

10 020 1 

CCS 

CYR 

0206 

BEF 

285 

cast 1084 

6234 

50 000 1 

DffEX 

A 

020T 

REF 

1 


6235 

1 2000 1 

7CF 

UNA JUMP 

0208 

BEF 

T 

last 1083 

0238 

10 163 1 

CCS 

MCDB 

0209 

BEF 

1 


623T 

1 201T 1 

TCP 

aiORTT 

0210 

I«F 

2 

LAST 1085 

6240 

1 201T 1 

ICF 

aiCRTT 

0211 

BEF 

1 


6241 

1 2121 0 

TCP 

aiORlV 

0212 

REF 

1 

last 299 

4364 

fbankmsk equals 

BANKMAEK 

0213 

BEF 

22 

6242 

00122 0 LvBuP 

AOBBS 

VBUF 


CALI, IN BANK 0 (BITS 11-15 OP A ABE 0.) 

■IBSr THIBD PBBFIX BIT. 

IHB DBCSENENTBD IWABY CODE IS IN BITS 
1-4 CP A (ZEBO, EXIT. HAS BEEN DBIECMEDl 

ITS A SHORT ailPT CODE. SEE IF PBESENT 
scalar or VE(3TQa. 

CALLS THE APPBOPRIAIE ROUTINE. 


\ 


I 





I 




N214 

021S 

021T 

0218 

0219 

0220 
0221 
0222 

0223 

0224 

0225 

0226 
022T 
0228 

0229 

0230 

0231 

0232 

0233 

0234 

0235 

0236 
023T 

0238 

0239 

0240 

0241 

0242 

0243 

0244 

0245 
0248 
024T 

EU248 
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THE POU/WINO IS THB JUMP WBIB FOR OP COOes HHICH mY HAVE INDBJCABLE ADDRESSES OR MAY POSH UP. 


HEP 


1 

1 

1 

1 

1 

2 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 


LAST 398 


6243 

1 

6454 

0 

INDJUMP TCF 

VLOVD 

6244 

1 

7040 

0 

TCP 

TAD 

6245 

1 

7624 

1 

TCP 

SIGN 

6246 

1 

7350 

1 

TCF 

vxsc 

6247 

1 

6652 

1 

TCF 

CGOTO 

6250 

1 

6437 

0 

TCF 

TLQAD 

6251 

1 

6021 

0 

TCP 

DLOAD 

6252 

1 

7573 

0 

TCP 

v/sc 

6253 

1 

6450 

1 

TCP 

SLQAD 

6254 

1 

6567 

1 

TCP 

SSP 

6255 

1 

8472 

1 

TCP 

PDDL 

6256 

1 

7303 

1 

TCF 

MYV 

8257 

1 

6526 

1 

TCP 

PDVL 

6260 

1 

6575 

1 

TCP 

CCALL 

6261 

1 

7306 

1 

TCP 

VXM 

6262 

1 

7565 

1 

TCP 

TSLC 

6283 

1 

7543 

0 

TCP 

DMPR 

6264 

1 

7546 

0 

TCP 

DDV 

6265 

1 

7552 

0 

TCP 

BDDV 

6286 

1 

7570 

0 

TCP 

GSHIPT 

6287 

1 

6720 

0 

TCP 

VAD 

6270 

1 

6718 

0 

TCP 

VSU 

6271 

1 

7005 

1 

TCP 

BVSU 

6272 

1 

7300 

1 

TCP 

DOT 

6273 

1 

7427 

0 

TCP 

vxv 

8274 

1 

7374 

1 

TCP 

VPROJ 

6275 

1 

8754 

0 

TCP 

DSU 

6276 

1 

7031 

0 

TCP 

BDSU 

6277 

1 

6744 

1 

TCP 

DAD 

6300 

1 

6300 

0 

TCP 


6301 

1 

7541 

1 

. TCP 

CMPl 

6302 

1 

7562 

0 

TCP 

SETPD 

' PUSH 

UP 

’. CODE 04 

MAY BE USED 

for vectc 


00 - UWD MPAC WITH A VECTOR. 

01 - TRIPLE PIffiCISItK ADO TO MPAC. 

02 - CCMPLOeiT MPAC (V OR SC) IP X NBO. 

03 - vector times scalar. 

04 - CCMPOTED 00 TO. 

05 - LOAD MPAC yflTH TRIPLE PRECISICN. 

06 - LQ»D MPAC WITH A DP SCAIAR. 

07 - vector DIVIDED BY SCALAR. 

10 - load MPAC IH SINGLE PRECISICN. 

11 - set single PRECISICN INTO X. 

12 - PUai DOWN MPAC AND RE-LOAD IN DP. 

13 - MATOIX POST-MJLTIPLIED BY VECTOR. 

14 - PUSI DOWN AND VECTOR LOAD. 

15 - CCMPUTED CALL. 

16 - matrix pre-multiplied by vector. 

17 - normalize MPAC (SCALAR (NLY) . 

20 - DP MtTIPLY AND RCUND. 

21 - DP DIVIDE BY. 

22 - DP DIVIDE INTO. 

23 - gbiebal shift insthucticn. 

24 - VECTOR ADD. 

25 - vector SUBTHACrr. 

28 - vector SLETRACT FRCM. 

27 - vector dot product. 

30 - vector CROSS PRODUCT. 

31 - VECTOR PROJECTKW. 

32 - DP subtract. 

33 - DP subtract FRCM. 

34 - Dp ADD. 

35 - AVAILABLE 

36 - DP MULTIPLY. 

37 - SET PUSH DOWN POINTER (DIRECTr ONLY) 
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TW POXOfflNa JIHP TABLE APPLIES TO INDEX, BRANCH, AND MISCELLANEOUS INSTRUCTICNS. 


1087 


6252 REP 1 6303 

0253 REP 1 8304 

0254 REP- 1 0305 

0255 REP 1 0306 

6256 REP 1 630T 

025T REP 1 6310 

0258 REP 1 6311 

6259 REP 1 0312 

0280 REP 1 8313 

0261 REP 1 0314 

0262 HEP 1 0315 

6263 REP 1 0316 

0264 REP 1 631T 

0265 REP 1 6320 

0266 • REF 1 6321 

0267 HEP 1 0322 


1 

2371 

1 

MISCJIWP TCP 

AXT 

1 

2376 

0 

TCP 

AxC 

1 

2401 

1 

TCP 

LXA 

1 

2405 

0 

TCP 

ixc 

1 

2411 

0 

TCP 

SCA 

1 

2417 

0 

TCP 

xt»« 

1 

2433 

0 

TCP 

inch 

1 

2442 

0 

TCP 

TIX 

1 

2425 

1 

TCP 

XAD 

1 

2436 

0 

TCP 

xsu 

1 

2S14 

1 

TCP 

BzB/GOrO 

1 

2521 

1 

TCP 

bpl/bmi 

1 

2474 

0 

TCP 

RTB/BHIZ 

1 

2334 

0 

TCP 

call/ita 

1 

2543 

0 

TCP 

an/ 

1 

2504 

0 

TCP 

BCVCB) 


00 - address to index race. 

61 - address to index CCMPL0®nHJ. 

02 - UMD INDEX PRCM ERASABLE. 

03 - LCAD INDEX PROM CCMPl£f«NT OP ERAS. 

04 - STORE INDEX IN ERASABLE. 

05 - EXCHANGE INDEX WITH ERASABLE. 

06 - INCBE^®^T INDEX RBOISTER. 

07 - ibanspeh cn index. 

10 - INDEX REOISTEH ADO PROM ERASABLE. 

11 - INDEX subtract FHCM ERASABLE. 

12 - Branch zero and goto. 

13 - Branch plus and branch minus. 

14 - RBIUroj TO basic AND BRANCH HI ZERO. 

15 - CALL AND STORE QPRET. 

16 - SWITCH INSTBUCTICNS AND AVAILABLE. 

17 - branqi cn cvebflq* to basic or INT. 






I 


1 

I 

I 


ww" Assaete bevisicn 249 op aqc pnoatAM coujssjs hy nasa 2021111-041 
L IWIBRPHBIBR 

IHB TOLUWINO JIM? XABL8 APPIBS TO IMARY INSlWjOrlCNS. 

OOIKT 00/INTBB 


0278 

02T9 

0280 

0281 

0282 

0283 

0284 

0285 


20 ’35 OOT. 28.1968 SATRAP .OOT PAOB 1088 
USBRkS page no. 12 Bo S3 


P028S 


0269 REP 
02T0 

02T1 REP 

0272 RS' 

0273 REP 

0274 REF 

0275 REF 

0276 REF 

0277 REF 


RBF 

RBF 

REF 

REF 

REF 

RBF 

REF 


1 

00,2000 




bank 

0 

00 

- EXIT - detected earlier. 

00,2000 


3207 

0 

UNAJuMP ICF 

SORT 

01 

- SOlARB ROOT. 

1 

00,2001 


3527 

0 

TCP 

SINE 

02 

- SIN. 

1 

00,2002 


3516 

1 

TCP 

COSINE 

03 

- COS. 

1 

00,2003 


3807 

1 

TCP 

AICSIN 

04 

- ABC SIN. 

1 

00,2004 


3611 

0 

TCP 

AHDCOS 

05 

- Arc cos. 

1 

00,2005 


3174 

1 

TCP 

OSO 

06 

- DP square. 

1 

00,2006 


2116 

1 

TCP 

RCXKD 

07 

- ROUND TO DP. 

1 

00,2007 


7637 

0 

TCP 

CCMP 

10 

- CCMPL»»IT vector OR SCALAR. 

1 

00,2010 


3232 

0 

TCP 

VDEP 

11 

- vector define. 

1 

00,2011 


3023 

1 

TCP 

UNIT 

12 

- UNIT vector. 

1 

00,2012 


3176 

0 

TCP 

ABvALABS 

13 

- LENGTH CP vector OR MAO OP SCALAR, 

1 

00,2013 


3245 

0 

TCP 

vso 

14 

- square op length op vector. 

1 

00,2014 


6323 

1 

TCP 

SIADB 

15 

- Pual UP 04 STORE CODE. 

1 

00,2015 


3274 

1 

TCP 


16 

- return via (»>HBT. 

1 

00,2016 


3247 

1 

TCP 

puai 

17 

- PU9I MPAC DOWN. 







i 
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R028T 

IU289 

it0291 

R0293 

110295 

R029T 

R0299 

R0301 

II0303 

0305 

0306 

030T 

0308 

0309 

0310 

0311 

0312 

0313 

0314 

0315 

0316 
031T 

0318 

0319 

0320 






1. STORE 


STORE MPAC. THE E ADDRESS MAY BE 



2 • STODL 


STORE MPAC A;© BB-LOAO 

IT IN DP 1 



3. STOVL 


STORE MPAC AND B8-LOU> A vECrCSl ( 



4. SICALL 


STORE AND DO A CALL CBOIH ADORES! 



STODL AND 

STCVL WILL take PRCM Uffi PUSH-DOWN LIST IP NO 




6323 



BLOCK 

3 

REP 

2 last lOTT TO 1088’ 

205 205* 


COUNT 

03/ INTER 

REP 

4 

last 1078 

8323 

3 0165 0 

STSDH 

CA 

EM14CSET 

REP 

15 

LAST 1085 

6324 

54 004 1 


T3 

PBAI6C 

REP 

16 

last 1084 

6325 

24 164 1 


WCR 

LOC 

REP 

IT 

LAST 1089 

6326 

50 164 1 

llRl 

nexx 

LOC 




6327 

4 0000 0 


CS 

0 

REP 

23 

last 1069 

6330 

6 7716 0 


AD 

NBQCME 

HEP 

14 

last 1083 

6331 

54 116 0 

dostore 

TS 

AODIMD 

REP 

T 

LAST 3T3 

6332 

7 4372 1 


mask 

LOWll 

REP 

IS 

LAST 1089 

6333 

56 116 1 


XCH 

ADDRy© 

REP 

1 


6334 

7 7671 1 


mac 

B12T14 




6335 

0 0006 1 


ElCTK© 


REP 

38 

last 1013 

6336 

7 4706 0 


HP 

bits 

REP 

286 

last 1085 

6337 

50 000 1 

ITRO 

UOEX 

A 

REP 

1 


6340 

1 6341 0 


TCP 

STORJIMP 


THE SWDH CODE (PUaWP UP Of STORE 
ADDRESS) BfiERS HERE. 

THE STORECODB WAS STOna) CCMPLE>B4raD TO 
M4 kE it LOCK like AN OPCODE PAIR. 

(TU, CANT HEMCVB 1 BECAUSE OP EARLV CCS) 

Brnof PRIM dispatcher, save the erasable 
address and Jump cn the store code no. 


EAOl TRANSPER vector ECnW IS TWO WORDS. 




Jll 
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STOHB CXDB JIMP 'SABLS. CALLS THE APPROPRIATE STORINO ROUTINE AND EXITS TO OANZIO OR TO ADDRESS WITH 
>0323 A SUPPLIH) OPEBATICN- CCDE. 

“°3231 STORE STORE, 1 AM> STOHB, 2 RETURN TO DANZIO, THUS HESETTINQ THE EBANK TO ITS STATE AT INTPRET. 


0324 

REP 

1 


0341 

0 

6371 

1 

STOHJLMP TC 

STORE 

STORE. 

0325 

REP 

9 

last T54 

6342 

1 

6030 

0 

TCP 

GMNZIO 

PICK UP NEW OP CODECS) . 

0328 

REP 

1 


6343 

0 

6363 

1 

TC 

STOHB, 1 


032T 

REP 

10 

last 1090 

6344 

1 

6030 

0 

TCP 

DANZIO 


0328 

REP 

1 


6345 

0 

6366 

1 

TC 

STORE, 2 


0329 

REP 

11 

last 1090 

6346 

1 

6030 

0 

TCP 

DANZIO 


0330 

REP 

2 

last 1090 

834T 

0 

6371 

1 

TC 

STORE 

STODL. 

0331 

HEP 

1 


6350 

1 

6427 

1 

TCP 

DODLOAD 


0332 

REP 

3 

LAST 1090 

6351 

0 

6371 

1 

TC 

SIOHB 

STODL WITH INDEXED LOAD ADDRESS. 

0333 

REP 

1 


6352 

1 

6113 

0 

TCP 

DODLOAD4 


0334 

REP 

4 

last 1090 

6353 

0 

6371 

1 

TC 

STOHB 

STCVL. 

0335 

HEP 

1 


6354 

1 

6432 

0 

TCP 

DOVLOAD 


0338 

REP 

5 

LAST 1090 

6355 

0 

6371 

1 

TC 

STORE 

STCVL WITH INDEXED LOAD ADDRESS. 

033T 

REP 

1 


6356 

1 

6435 

1 

TCP 

DCVLCHD4 


0338 

REP 

8 

LAST 1090 

635T 

0 

6371 

1 

TC 

STORE 

STOIC. 

0339 

REP 

1 


6360 

3 

4723 

0 

CAP 

CALLCCDB 


0340 

REP 

26 

last 1085 

6361 

54 020 

1 

TS 

CTR 


0341 

REP 

1 


6382 

1 

6221 

1 

TCP 

isbitadr 

get a 15 bit adoiess. 




ntniint m s 


Assavus REVISION 249 OP AGO PBOSIAM COLOSSUS BV NAS* 2021111-041 
nnsRPREum 


STQBB CODE AODRBSS PROCESSOR. 


21 

LAST 1081 

6363 

50 120 

1 

STORE, 1 

INDEX 

PIXLOC 

49 

last 1081 

6364 

4 0046 

1 


CS 

XI 

1 


8365 

1 8370 

1 


TCP 

PBE STORE 

22 

IAST 1091 

6366 

50 120 

1 

STORE, 2 

INDEX 

PIXLOC 

28 

LAST 890 

636T 

4 0047 

0 


cs 

X2 

18 

LAST 1089 

83T0 

28 116 

0 

phbstore ads 

ADDRMD 

IT 

last 1091 

63T1 

4 0116 

0 

STORE 

CS 

addrhd 

2 

LAST 941 

63T2 

6 4727 

1 


AD 

DEC45 

28T 

LAST 1089 

63T3 

10 000 

0 


CCS 

A 

23 

last 1091 

6374 

3 0120 

1 


CA 

PIXLOC 

1 


63T5 

1 6402 

0 


TCP 

AHEADs 

5 

LAST 1081 

6376 

3 4744 

1 


CA 

OCT1400 

18 

LAST 1091 

6377 

56 116 

1 


XCH 

ADDRWD 

48 

LAST 1081 

6400 

54 003 

0 


TS 

EBANK 

10 

last 1081 

6401 

7 4373 

0 


HA* 

LOWS 

19 

LAST 1091 

6402 

28 116 

0 

AHEADs 

ADS 

ADOiMD 


20’35 OCT. 28,1908 SATRAP .OOT PACE 1091 
USkS PAGE NO. 15 EO S3 


resultant address is in erasable. 

DOES THE ADDRESS POINT TO THE WCRC AREA» 
YES. 

NO. SET EHANK d MAKE UP SUBADDRESS. 


20’35 CCT. 28,1968 SATRAP .OOT PAGB logz 
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USSUS PACDB NO. 18 


Bo S3 


N359 



aBMMffiHDUriNBS. STORE DP, 

TP 

, OR vector as indicated 

0360 




6403 

0 0006 

1 

STARTSTO BXTB© 

R0361 



DHOffl*: <'5> refers to aSTARTSTOa. 


0362 

REP 

291 

HAST HIT8 

6404 

3 0155 

0 

DCA 

MPAC 

0363 

REP 

20 

liter KHi 

6405 

50 116 

1 

INDEX 

AODIMD 

0364 




8406 

52 001 

1 

DXCH 

0 

0385 

REP 

6 

niter mas 

6407 

10 163 

1 

CCS 

MODE 

0366 

REP 

1 


6410 

1 6423 

0 

TCP 

TSTORB 

0361 

REP 

229 

niter iKTB 

6411 

0 0002 

0 

TC 

0 

0368 




6412 

0 0006 

1 

vsTORB Extend 


0369 

REP 292 

niter ixra2 

6413 

3 0160 

0 

DCA 

MPAC *3 

03T0 

RBP 

21 

niter 1092 

6414 

SO 116 

1 

INDEX 

addrmd 

0371 




6415 

52 003 

0 

DXfJl 

2 

0372 




8416 

0 0006 

1 

EXTEND 


0373 

RBP 

293 

niter urea 

6417 

3 0162 

1 

DCA 

MPAC 4.5 

0374 

RBP 

22 

niter 9092 

6420 

50 116 

1 

INDEX 

ADDIMD 

0375 




6421 

52 005 

0 

DxCH 

4 

0376 

REP 

230 

9092 

6422 

0 0002 

0 

TC 

0 

0377 

REP 

294 

liter 9092 

6423 

3 0156 

0 

T3T0RE CA 

MPAC 42 

0378 

REP 

23 

liter 9092 

6424 

SO 116 

1 

INDEX 

ADDR|«D 

0379 




6425 

54 002 

1 

TS 

2 

0380 

VBF 

231 

liter 9092 

6426 

0 0002 

0 

TC 

0 


MPAC,*i ItJST BE STORED IN ANY EVENT. 
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W381 ROTriNES TO BBOIN PKXSSSINO OP THB SECCND ADOBBSS ASSOCIATH) WITH AIX. STOBB-TTPB CODES EXCEPT STOEB 

■0383 ITSELP. 


00 GET A direct ADDRESS. 


8384 

RES' 

1 


842T 

3 TTOl 

0 

DODLOUD 

CAP 

DLCADCCD 

0385 

HEP 

ar 

last 1090 

8430 

54 020 

1 


TS 

<«R 

0388 

REP 

1 


8431 

1 6055 

0 


TCP 

DIRADBES 

838T 

REP 

1 


6432 

3 46T4 

0 

DCX/LCHD 

CAP 

VLOADCOD 

0388 

HEP 

28 

LAST 1093 

6433 

54 020 

1 


TS 

CYR 

0389 

HEP 

2 

IAST 1093 

6434 

1 6055 

0 


TCP 

DIRADRBS 

0390 

HEP 

1 


8435 

3 6056 

i 

D0VLQ104 CAP 

VLQAD+ 

0391 

REP 

2 

last 1090 

6438 

1 6114 

1 


TCP 

DQDLOIDC .1 


PROLOGUE TO INDEX ROUTINE. 




Jll 

L 

f0392 
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WE POLLOPINO LOAD INSmCTKHS ARE PRCVIDeD POR LOADING THE MULTI-PURPOSE ACCU4JLAT0B.MPAC. 


0394 

0395 
0398 
039T 

0398 

0399 

0400 

0401 

0402 

0403 

0404 

0405 

0406 

640T 

0408 

0409 

0410 

0411 

0412 

0413 

0414 

0415 

0416 
041T 

0418 

0419 

0420 


■EP 

24 

1*ST 1092 

8437 

50 116 

1 

TLQAD 

index 

adoimd 




6440 

3 0002 

0 


CA 

2 

REP 

295 

LAST 1092 

6441 

54 156 

1 


T3 

MPAC *2 



lAsr 1094 

0442 

0 0006 

1 


EXTBO 


in/y 

25 

6443 

5 0116 

1 


INDEX 

ADDRWD 




6444 

3 0001 

0 


DCA 

0 

IBP 290 

last 1094 

0445 

52 155 

1 


DXCH 

MPAC 

W' 133 

last 1058 

6446 

3 4712 

1 

TMODE 

CAP 

CNE 


1 


6447 

1 6027 

0 


TCP 

NEVIMODE 




6450 

22 007 

0 

SLOAD 

2L 


BBP 

20 

last 1094 

6451 

50 116 

1 


INDEX 

acdrao 




6452 

3 0000 

1 


CA 

0 

wy 

1 


6453 

1 6024 

0 


TCP 

SLOAD2 




6454 

0 0006 

1 

VLOAD 

EXTBTO 


fsy 

21 

last 1094 

6455 

5 0116 

1 


INDEX 

ADDRWD 




6456 

3 0001 

0 


DCA 

0 

sey 

29T 

last 1094 

6457 

52 155 

1 


DXCH 

MPAC 

ter 



6460 

0 0006 

1 

ENDVLOAD 

EXTB© 


28 

last 1094 

6461 

5 0116 

1 


INDEX 

ADDnuD 




6462 

3 0003 

1 


DCA 

2 

«BP 298 

last 1094 

6463 

52 160 

1 


DXCH 

MPAC +3 



LAST 1094 

6464 

0 0006 

1 

♦4 

EXTEND 


REP 

29 

6465 

5 0116 

1 


INDEX 

ADDH#D 




6466 

3 0005 

1 


DCA 

4 

wy 299 

LAST 1094 

6487 

52 162 

0 


DXCH 

MPAC +5 

RBP 

134 

LAST 1094 

6470 

4 4712 

0 

VMCDE 

CS 

CNE 

REP 

2 

last 1094 

6471 

1 6027 

0 


TCP 

newmqde 


LOAD A IRIPLB PRECISICN ARGUMENT INTO 
THE FIRST THREE MPAC HEOISTEHS, WITH THE 
CQOHITS OP THE OTHER POUR IRRELEVANT. 


declare TRIPLE PRECISICN MODE. 

LOAD A SINGLE PRECISICN NU«ER INTO 
MPAC, setting MPAC+1,2 TO ZERO. THE 
CCNTB4TS OP THE REMAINmi MPAC REGISTERS 
ARE IHRaEVANT. 

LOAD A DOBLE PHBCISKK VECTOR INTO 
MPAC,+i, MPAC+3,4, ANDMPAC+5,6. THE 
CCNiaiTS OP MPAC +2 ARB IRRELEVANT. 


PDVL COBS HERB TO PINI9I UP POR DP, XP. 


TTDVL PINIafflS HERE. 


DECLARE VECTOR MODE. 
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ill 


intbrprstbr 


USBR-S PACE NO. 19 


EO 83 



P0421 



THE POLLarlNa WSTHOCTICNS are provided POR STORING OPE 

1(0423 



1. poai 


PUaiXMN AND NO LOU). 


1(0424 



2. rCDL 


PUa®OWN AND PHECISIOI LO 

R042S 



3. PDVL 


PUSmOWN AND vector LOU). 

0426 




6472 

0 0006 1 

POOL 

BXTB® 

642T 

REP 

30 

IAST 1094 

6473 

5 0116 1 


INDEX 

ADDRM) 

0428 




6474 

3 0001 0 


DCA 

0 

0429 

REP 

300 

(AST 1094 

6475 

52 155 1 


OXCH 

MPAC 

0430 

BEP 

2 

last 1083 

6476 

50 166 0 


INDEX 

PUSILOC 

0431 




6477 

52 001 1 


DXCM 

0 

0432 

HEP 

9 

LAST 1092 

6500 

50 163 0 


INDEX 

MODE 

0433 

IffiP 

3 

LAST 1083 

6501 

3 6213 1 


CAP 

NO.WDS 

0434 . 

HEP 

3 

last 1095 

6502 

26 166 1 


ADS 

PUSHLOC 

0435 

HEP 

10 

last 1095 

6503 

10 163 1 


CCS 

MODE 

0436 

REP 

1 


6504 

1 6521 0 


TCP 

aoTPuai 

043T 

HEP 

1. 


6505 

1 6517 0 


TCP 

BfflDPuai 

0438 

REP 

11 

IAST 1095 

6506 

54 163 1 


TS 

MODE 

0439 

REP 

301 

LAST 1095 

6507 

54 156 1 

a®vpuai Ts 

MPAC +2 

0440 

BEP 

302 

LAST 1095 

6510 

52 160 1 


DXCH 

MPAC 4.3 

0441 

HEP 

4 

last 1095 

6511 

50 166 0 


INDEX 

PUSHLOC 

0442 




6512 

51«775 0 


DJCCH 

0 -4 

0443 

BEP 

303 

last 1095 

6513 

52 162 0 


DxCH 

MPAC +5 

0444 

BEP 

5 

LAST 1095 

6514 

50 166 0 


INDEX 

PUSHLOC 

0445 




6515 

51«777 1 


ftlCH 

0 -2 

0446 

BEP 

12 

LAST 1090 

6516 

1 6030 0 


TCP 

DANZIG 

0447 

REF 

304 

LAST 1095 

6517 

54 156 1 

EHDOPUSI TS 

MPAC +2 

0448 

REP 

13 

LAST 1095 

6520 

1 6030 0 


TCP 

DANZIG 

0449 

REP 

12 

LAST 1095 

6521 

54 163 1 

ENDTPUai TS 

MCDE 

0450 

REP 

305 

LAST 1095 

6522 

56 156 0 


XW 

MPAC 

0451 

REP 

6 

LAST 1095 

6523 

SO 166 0 

+2 

INDEX 

PUaiLOC 

0452 




6524 

53«777 0 


TS 

0 -1 

0453 

REP 

14 

LAST 1095 

6525 

1 6030 0 


TCP 

DANZIG 


UMD MPAC,*i, PUSHINO THE TOR>«R 
CCHTWTS DO»N. 


ADVANCE THE PUSTDOWN POINTER APPRO- 
PRIATELY. 


NOP DP. 

POSH DOWN THE BEST OP THE VECTOR HERE. 


SET MPAC fZ TO ZERO AND EXIT CK DP. 


CN TRIPLE, SET MPAC +2 TO ZERO, PuaiING 
DOWN THE aX) CCNIEITS 
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P0A54 PDVL - POSHDOiN AND VECTOR LOID. 


0455 




6526 

0 0006 1 

PDVL 

eXTH® 

RELOAD MPAC AND PUSH DOWN ITS CCNTENT3. 

0458 

REP 

31 

LAST 1095 

6527 

5 0116 1 


INDEX 

ADDRSID 


045T 




6530 

3 0001 0 


DCA 

0 


0458 

REP 

306 

LAST 1095 

6531 

52 155 1 


DXCH 

MPAC 


0459 

REP 

T 

last 1095 

6532 

50 166 0 


INDEX 

puaiLOC 


0480 




6533 

52 001 1 


DXCH 

0 


0481 

REP 

13 

LAST 1095 

6534 

50 163 0 


INDEX 

HCDE 

ADVANCE THE PUEIDCWN POINTER. 

0482 

REP 

4 

lAsr 1095 

6535 

3 6213 1 


CAP 

NO.BDS 


0483 

REP 

8 

lAST 1096 

6538 

26 166 1 


AOS 

puaiLoc 


0484 

REP 

14 

last 1096 

8537 

10 163 1 


CCS 

MODE 

TEST PAST MODE. 

0485 

REP 

1 


8540 

1 6557 1 


TCP 

TPDVL 


0488 

REP 

1 


6541 

1 6460 1 


TCP 

eaivLCWD 

AIST LOAD LAST P(XIR REGISTERS CN DP. 

048T 




6542 

0 0006 1 

VPDVL 

EXTEND 

PUa8X3WN AND HB-LOAD LAST TWO CCMPCNENTS 

0488 

REP 

32 

LAST 1096 

8543 

5 0116 1 


INDEX 

ADDIMD 


0489 




6544 

3 0003 1 


DCA 

2 


04T0 

HEP 

307 

LAST 1096 

6545 

52 160 1 


DXCM 

M»AC ^3 


84T1 

REP 

g 

LAST 1096 

6546 

50 166 0 


INDEX 

PUSILOC 


04T2 




6547 

51«7T5 0 


DXCH 

0 -4 


04T3 




6550 

0 0006 1 


Extend 



04T4 

HEP 

33 

LAST 1096 

6551 

5 0116 1 


INDEX 

ADOIWD 


04T5 




6552 

3 0005 1 


DCA 

4 


04T8 

REP 

308 

LAST 1096 

6553 

52 162 0 


Dxtjl 

MPAC +5 


84T7 

REP 

10 

LAST 1096 

6554 

50 166 0 


INDEX 

POSHLOC 


04T8 




6555 

S1«7TT 1 


DxCH 

0 -2 


04T9 

REP 

15 

LAST 1095 

6556 

1 6030 0 


TCP 

DANZIO 


0480 




6557 

0 0006 1 

■mvL 

EXTEND 


CN TP, WE MUST LOAD THE Y CCMPCNBNT 

0481 

REP 

34 

LAST 1098 

6560 

5 0116 1 


INDEX 

ADOR® 

before STORINQ MPAC +2 INCASE THIS IS A 

0482 




6561 

3 0003 1 


DCA 

2 

puaiup. 

0483 

RH' 

309 

LAST 1096 

6562 

52 160 1 


DxQl 

MPAC *3 


0484 

REP 

310 

LAST 1096 

6563 

3 0156 0 


CA 

MPAC +2 


0485 

REF 

11 

LAST 1096 

6564 

50 166 0 


INDEX 

POaiLOC 

IN DP. 

0488 




6565 

53«T7T 0 


T3 

0 -1 


048T 

REP 

2 

last 1096 

6566 

1 6464 0 


TCP 

BJDVLCMD +4 


l<0488 



SSP (STORE 

SINGLE PRBCISIOO IS EXEXXTTED HERB. 



0489 

REP- 

18 

LAST 1089 

6567 

24 164 1 

SSP 

INCH 

LOG 

PICK UP THE WORD Fa,LCWING THE GIVEN 

0490 

HEP 

19 

LAST 1096 

6570 

50 164 1 


INDEX 

LOC 

address and store it at X. 

0491 




6571 

3 0000 1 


CA 

0 


0492 

REF 

35 

LAST 1098 

6572 

50 116 1 

STOREi 

INDEX 

ADORSVD 

soe INDEX and MISCBliANEaiS CX>S END 

0493 




6573 

54 000 0 


TS 

0 

HERE. 




■ 
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P049S QUNOING AlO SIEHOUTINK CALLING OPTIONS. 

B0498 VK POLLOTING OFBBATKMS ARB AVAILABLE FOR SEOue^CING CMANOINO, BRANCHING, AND CALLING SUBROUTINES* 


L INTERPREIBR 


it0498 



1 . ooro 


GO TO. 




110499 



2. CALL 


CALL subroutine 

«rTINO QPRET. 

ROSOO 



3. OGOTO 


COIPUIBD GO TO. 



R0501 



4. CCALL 


(XMPUIHJ CALL. 



R0502 



7. BPL 


branch 

IF MPAC POSITIVE OR ZERO. 

1(0503 



8. BZE 


Branch 

IF MPAC ®HO. 


1(0504 



9 . 


branch 

IF MPAC negative NCN-ZBHO. 

0505 

REF 

20 

LAST 1096 

6575 

24 164 1 

CCALL 

INCR 

LOC 

0506 

RH' 

21 

LAST 1098 

6576 

50 164 1 


INDEX 

LOC 

OSOT 




6577 

3 0000 1 


CAP 

0 

0508 

REF 

36 

LAST 1096 

6600 

SO 116 1 


INDEX 

ADDRRD 

0509 




6601 

6 0000 1 


AD 

0 

0510 

REF 

16 

LAST 1089 

6602 

54 004 1 


TS 

fbank 

0511 

REF 

18 

last 1081 

6603 

7 4747 0 


MAaC 

LOrio 

0512 

BBF 288 

LAST 1091 

6604 

50 000 1 


INDEX 

A 

0513 




6605 

3 2000 0 


CVVF 

10000 

0514 

REF 

6 

LAST 1084 

6606 

54 117 1 


TS 

POLISH 

0515 

REP 

5 

LAST 1089 

6607 

3 0165 0 

CALL 

CA 

aANK®T 

0516 

REP 

2 

last 1085 

6610 

7 4364 0 


mask 

BANKMAao 

651T 

REF 

3 

LAST 1098 

6611 

6 4364 1 


AD 

BANKMAao 

0510 

REP 

22 

LAST 1098 

6612 

6 0164 1 


AD 

LOC 

0519 

REP 

24 

last 1091 

6613 

SO 120 1 


INDEX 

FIXLOC 

0520 

REP 

17 

LAST 748 

6614 

54 052 1 


TS 

QPRET 

0521 

REF 

7 

LAST 1098 

6615 

3 0117 0 

goto 

CA 

POLISH 

0522 

REF 

4 

LAST 1081 

6616 

7 7711 0 

♦1 

MASK 

HIGH4 

0523 




6617 

0 0006 1 


BXIEND 


0524 

RE? 

1 


6620 

1 6631 1 


BzF 

(XWOERS 

0525 

BBF 

6 

lAST 1098 

6621 

3 0165 0 

♦4 

CA 

bankset 

0526 

REP 

18 

last 1078 

6622 

54 006 0 


TS 

BBANK 

052T 

REF 

8 

LAST 1098 

6623 

3 0117 0 


CA 

POLI3I 

0528 

BBF 

17 

LAST 1098 

6624 

54 004 1 


TS 

fbank 

0529 

REP 

17 

LAST 1098 

6625 

7 4747 0 


MASK 

LOWIO 

0530 

REP 

2 

LAST 1081 

6626 

6 4700 1 


AD 

2K 

0531 

HEP 

23 

LAST 1098 

6627 

54 164 0 


TS 

LOC 

0532 

REP 

227 

last 1077 

6630 

1 6011 0 


TCP 

INTPRET <-3 

0533 




E3,1400 



BBANKr 

1400 

0534 

HEP 

9 

LAST 1098 

6631 

3 0117 0 

(XITQBRS 

CA 

PCLIai 

0535 

HEP 

2 

LAST 1080 

6632 

6 6220 1 


AD 

-BIDvAC 

0536 

REF 289 

LAST 1098 

6633 

10 000 0 


CCS 

A 

0537 

FBF 

10 

LAST 1098 

6634 

3 0117 0 


CA 

pQLiai 

0538 

HEP 

1 


6635 

1 6644 0 


TCP 

gotoge 




MAINWIN LOC FOR QPRET CCMPUWTICN. 
GET base ADDRESS OP CADR LIST. 


ADO INCRE^elT. 
select DESIRED CADR. 


FOR ANY OP THE CALL OPTIONS, MAKE UP THE 
address op the next OP-CODE PAIR/STORE 
coce AND LEAVE IT IN QPRET. NOTE THAT 
BANKMAao = -(2000 - 1). 


BASIC branching SEQUENCE. 


SBB IP ADDRESS POINTS TO FIXED OR ERAS. 

set ebank part op bbank. next, set Op 
fbank. the cobinaticn is picked up d 
PUT into bankset at INTPRET +2. 


SO YUI, DOESN.T CUSS THE gCA 1400A BBl.OW. 


THE GIVEN ADDRESS IS IN ERASABLE - SEE 
IP RELATIVE TO THE WORK AREA. 


GBJERAL ERASABIE. 




r 
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•539 

IBP 

25 

last 1098 

8038 

3 0120 1 


CA 

PIXLOC 

•one AREA. 

•540 

BBP 

11 

LAST 1098 

883T 

6 OUT 0 


AD 

PCLim 


•541 

REP 

290 

LAST 1098 

8840 

SO 000 1 


INDEX 

A 

USE THE Olvai address AS THE ADDRESS OP 

•542 




8841 

3 0000 1 


CA 

0 

THE BRANCH ADDRESS. 

•543 

BBP 

12 

LAST 1099 

8842 

54 117 1 


TS 

P0LI9I 


•544 

REP 

1 


8843 

1 6616 1 


TCP 

GOTO ♦! 

ALLOjfS arbitrary INDIRECTNESS LEVELS. 

•545 

RBP 

49 

LAST 1091 

8844 

54 003 0 

OOTCXS 

TS 

EEWNK 


•546 

RBP 

11 

LAST 1091 

0045 

7 4373 0 


mask 

LOTS 


•54T 

RHP 291 

last 1099 

8648 

SO 000 1 


INDEX 

A 

USB THE GIVB7 ADDRESS AS THE ADDRESS OP 

•54S 




804T 

3 1400 1 


CA 

1400 

THE BRANCH ADDRESS. 

•549 

REP 

13 

LAST 1099 

8850 

54 117 1 


TS 

POLISH 


•550 

RBP 

2 

last 1099 

8651 

1 6616 1 


TCP 

goto *1 


. 0551 

REP 

24 

LAST 1098 

8652 

50 164 1 

OGOTO 

INDEX 

LOC 

CCMPUTED GO TO. PICK UP ADDRESS OP CADR 

0552 




6653 

3 0001 0 


CA 

1 

LIST. 

0553 

RHP 

3T 

LAST 1098 

6654 

SO 116 1 


INDEX 

ADORd© 

ADO MCDIPIBR. 

•554 




6655 

6 0000 1 


AD 

0 


•555 

HEP 

18 

LAST 1098 

6656 

54 004 1 


TS 

FBANK 

select goto ADDRESS. 

•550 

REP 

.18 

LAST 1098 

665T 

7 4747 0 


MAac 

LGWIO 


•55T 

RBP 

292 

LAST 1099 

6660 

50 000 1 


INDEX 

A 


•558 




6661 

3 2000 0 


CA 

10000 


•559 

RBP 

14 

LAST 1099 

6662 

54 117 1 


TS 

pa,iai 


•500 

RBP 

3 

LAST 1099 

6663 

1 6616 1 


TCP 

goto +1 

WITH ADDRESS IN A. 

•sot 

RBP 

T 

LAST 1098 

6664 

3 0165 0 

arBBANCH CA 

BANKSET 

SWITCH INSTRUCTICNS WHICH ELECT TO 

•502 

RBP 

19 

LAST 1099 

6665 

54 004 1 


TS 

pbank 

Branch cob here to do so. 

•503 

RBP 

25 

LAST 1099 

6666 

50 164 1 


INDEX 

LOC 


•564 




666T 

3 0001 0 


CA 

1 


•SOS 

RBP 

IS 

LAST 1099 

66T0 

54 117 1 


TS 

POLISH 


•500 

REP 

4 

last 1099 

6671 

1 6616 1 


TCP 

goto +1 



V. -• 


Ill 


f 
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P058T 



1RIP1E PHECISICW BRANCMINO ROUTINE. 

IP CALLING TC IS AT 

R0569 



L*1 IP MPAC 

Is greater than zero. 



ROSTO 



L*2 IP MPAC 

IS EOUIL TO tO OR 

- 0 . 



B05T1 



1*3 IP MPAC 

IS LESS THAN ZERO 




05T2 

HEP 

311 

IAST 1096 

6672 

10 154 0 

branch CCS 

MPAC 

0ST3 

REP 

232 

last 1092 

6673 

0 0002 0 


TC 

Q 

05T4 




6874 

1 6676 1 


TCP 

♦2 

05T5 

REP 

1 


6675 

1 6710 0 


TCP 

NBG 

05T8 

REP 

312 

last 1100 

6676 

10 155 1 


CCS 

MPAC +1 

05TT 

REP 

233 

last 1100 

6677 

0 0002 0 


TC 

0 

05T6 




6700 

1 6702 0 


TCP 

♦2 

05T9 

REP 

2 

LAST 1100 

6701 

1 6710 0 


TCP 

NBG 

0580 

REP 

313 

last 1100 

6702 

10 156 1 


CCS 

MPAC ♦2 

0581 

REP 

234 

LAST 1100 

6703 

0 0002 0 


TC 

0 

0582 




6704 

1 6706 1 


TCP 

♦2 

0583 

RHP 

3 

last 1100 

6705 

1 6710 0 


TCP 

NEO 

0584 

HEP 

235 

last 1100 

■ 6706 

50 002 0 

0>1 

INDEX 

0 

0585 




6707 

0 0001 0 


TC 

1 

0588' 

REP 

236 

LAST 1100 

6710 

50 002 0 

NBO 

INDEX 

0 

0587 




6711 

0 0002 0 


TC 

2 

0588 

HEP 

4 

last 1100 

6710 


0>2 

= 

NEG 

R0S89 



ITHACB ( 3 ) REFERS TO /lEXITA. 




0590 

REP 

8 

last 1099 

6712 

3 0165 0 

Exit 

CA 

BANKSET 

0591 

REF 

19 

LAST 1098 

6713 

54 006 0 


TS 

BBANK 

0592 

REP 

26 

LAST 1099 

6714 

SO 164 1 


INDEX 

LOC 

0593 




6715 

0 0001 0 


TC 

1 


CH zero. 


IP FIRST NCN-zERO register «AS NEGATIVE. 


restore USBR«S bank SETTING, AND LEAVE 
interpretive mode. 






Ill 
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POStA SBCTIQN 3 - Anj/SlflTHACr PAOcAOB. 

■0595 U* POLLOOINO OPBRATIIMS ARE PRCVIDED POK ADDING TO AND Sl9IBACriNO PROt THE HJLTI-PUBPOSE ACClMlILATOR 

■0S9T l«AC* 


>0598 

1. 

DAO 

OOUBIE PRBCISICM ADD. 

■0599 

2. 

DSU 

IKXBLB PRECISICN SUBTRACT. 

■0000 

3. 

HDSU 

OOIELE PRECISION SUBTRACT PRCM 

■0601 

4. 

TAD 

TRIPLE PRECISICN ADD. 

>0002 

5. 

VAO 

vector ado. 

■0003 

6 . 

V3U 

vector subtract. 

■0004 

T. 

BVSU 

vector SI^TRACT PRCM. 



■0005 

THE 

INTERPRETIVE (VEHFUW OOICATOR (VPir© IS 

ST NOI-ZBRO IP OVERPLOI OCCURS IN ANY OP THE ABOVE 

oeoT 

REP 

44 

LAST 

1077 

0716 

3 4674 

0 

V3J 

CAP 

BIT15 

CHANGES 0 TO DCS. 

0008 





0717 

1 0721 

i 


TCP 

*2 


0009 

REP 

12 

LAST 

953 

0720 

3 4371 

0 

VAD 

CAP 

PRIO30 

CHANGES 0 TO DCA. 

0010 

REP 

38 

LAST 

1099 

0721 

20 116 

0 


AOS 

ADDIMD 


0011 





0722 

0 0006 

1 


BXTBro 



0012 

REP 

39 

LAST 

1101 

0723 

5 0116 

1 


INDEX 

ADDIUD 


0013 

REP 

2 

LAST 

424 

0724 

OO 003 

1 


READ 

HI SCALAR 

DCA 2 OR DCs 2 

0014 

REP 

314 

LAST 

1100 

0725 

20 160 

1 


DAS 

MPAC +3 


0015 





0720 

0 0006 

1 


Extend 


CHECK overflow. 

0010 





0727 

1 6731 

0 


BzP 

*2 


OOIT 

REP 

1 



0730 

0 0703 

0 


ic 

ovERPury 


0018 





0731 

0 0000 

1 


EXTEND 



0019 

HEP 

40 

LAST 

1101 

0732 

5 0116 

t 


INDEX 

ADDRWD 


0020 

REP 

6 

LAST 

1033 

0733 

00 005 

1 


READ 

CHAN5 

OCA 4 OR DCS 4 

0021 

REP 

315 

LAST 

1101 

0734 

20 162 

0 


DAS 

MPAC ts 


0022 





0735 

0 0006 

1 


EXTEND 



0023 





0736 

1 6740 

0 


BzP 

*2 


0024 

REP 

1 



0737 

0 6760 

0 


TC 

overplwz 


0025 





6740 

0 0006 

1 


BXT»)D 



0526 

REP 

41 

LAST 

1101 

0741 

5 0116 

1 


INDEX 

ADOft® 


00 2T 

REP 

15 

LAST 

1049 

0742 

00 001 

0 


BEAD 

LCHAN 

DCA 0 OR DCS 0 

0028 

REP 

1 



0743 

1 6747 

1 


TCP 

ENDVXV 


0029 





0744 

0 0006 

1 

mo 

Extend 



0030 

REP 

42 

LAST 

1101 

0745 

5 0116 

1 


INDEX 

ADORWD 


0031 





0740 

3 0001 

0 


DCA 

0 


0032 

HEP 

316 

LAST 

1101 

0747 

20 155 

1 

a^Dvxv 

DAS 

MPAC 

VXV PINIaiES HERE. 

0033 





0750 

0 0006 

1 


EXTEND 



0034 

HEP 

IT 

LAST 

1097 

6751 

1 6030 

0 


BzP 

DANZIG 




t: 
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0635 BBP 1 

0636 HEP 18 lAST 1101 


6752 0 8766 0 S&KVP IC OVERPLOf 

6753 1 6030 0 TCP DANZIO 
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0637 




6754 

0 0006 

1 

DSU 

BXIBO 

0638 

REF 

43 

IAST 1101 

6755 

5 0116 

1 


ncex 

AODmO 

0639 




6756 

4 0001 

1 


DCS 

0 

0640 

REF 

2 

W3T 1101 

8757 

1 6747 

1 


TCy 

BflkOCX 

0641 

REF 

168 

LAST 1075 

6760 

54 001 

1 

(VERPUfZ TS 

L 

0642 

REF 

26 

lAST 1039 

6761 

3 4715 

0 


CAP 

FIVE 

0643 




6762 

1 6765 

1 


ICF 

♦3 

0644 

REF 

169 

last 1103 

6763 

54 001 

1 

a^HPurv TS 

L 

0645 

REF 

40 

LAST 1060 

6764 

3 6214 

0 


CAP 

IHRES 

0646 

REF 

170 

LAST 1103 

6765 

56 001 

0 


XCH 

L 

064T 

REF 293 

lAST 1099 

6766 

50 000 

1 

cverfuw index 

A 

.0648 

REP 

5 

LAST 1038 

6767 

4 4673 

0 


CS 

LIMITS 

0649 

REP 

44 

LAST 369 

6770 

54 130 

1 


TS 

BUP 

0650 




6771 

0 0006 

1 


EXTB© 


0651 

REF 

294 

LAST 1103 

8772 

24 000 

1 


AUO 

A 

0652 

REP 

171 

LAST 1103 

6773 

SO 001 

0 


INDEX 

L 

0653 

HEP 

317 

LAST 1101 

6774 

26 155 

1 


ADS 

MPAC 

0654 




6775 

54 007 

1 


TS 

7 

0655 

REF 

210 

LAST 1077 

6778 

3 4714 

1 


CAP 

2»RO 

0656 

REF 

45 

LAST 1103 

6777 

6 0130 

0 


AD 

BlF 

06ST 

REF 

172 

LAST 1103 

7000 

50 001 

0 


INDEX 

L 

0658 

REF 

318 

LAST 1103 

7001 

26 154 

0 


ADS 

MPAC 

0659 




7002 

54 007 

1 


TS 

7 

0660 

REP 237 

LAST 1100 

7003 

0 0002 

0 


IC 

0 

0661 

REF 

1 


7004 

1 7121 

0 


TCP 

SEX<VP2 

0662 




7005 

0 0006 

1 

Bvsu 

EXTE® 


0663 

REF 

44 

LAST 1103 

7006 

5 0116 

1 


INDEX 

ADDfMD 

0664 




7007 

3 0003 

1 


DCA 

2 

0665 

REF 

319 

LAST 1103 

7010 

52 160 

1 


DxCH 

MPAC +3 

0666 




7011 

0 0006 

1 


EXTEND 


066T 




7012 

4 0001 

1 


DC(M, 


0668 

REF 

320 

LAST 1103 

7013 

20 160 

1 


DAS 

MPAC +3 

0669 




7014 

0 0006 

1 


EXTBTO 


0670 




7015 

1 7017 

1 


BzF 

♦2 

0871 

REF 

Z 

LAST 1101 

7016 

0 6763 

0 


ic 

a/Bmjir 

0672 




7017 

0 0006 

1 


Exreo) 


0673 

REF 

45 

LAST 1103 

7020 

5 0116 

1 


INDEX 

ADDRHD 

0874 




7021 

3 0005 

1 


DCA 

4 

0675 

REF 321 

LAST 1103 

7022 

52 162 

0 


DXCH 

MPAC +5 

0676 




7023 

0 0006 

1 


EXTEND 


0877 




7024 

4 0001 

1 


DCCM 


0678 

BBP 

322 

LAST 1103 

7025 

20 162 

0 


DAS 

MPAC +5 

0679 




7026 

0 0006 

1 


EXTEND 


0680 




7027 

1 7031 

0 


BzP 

♦2 

0681 

RH' 

2 

LAST 1101 

7030 

0 6760 

0 


TC 

O/ERFUIZ 


B<TOY FOB IHIHD CCMPCWB^T. 


amy for seccnd ccwpcnekt. 


anm for ist ccmp ® dp cl=o>. 
Pick UP POS4AX « NBCMAX. 


FOi»B (VERPLOW. 


NO cvERPLCw Exit. 
SET CVFIND AND EXIT. 




I 


20’35 OCT. 28jl9(l8 SATRAP .DOT PACE 1104 


I 

L 

0882 

0883 

0884 

0885 
0888 
088T 
0888 




A3Sa«LB RBVISICN 249 OP AOC PROGSIAM COLOSSUS BY NASA 2021111-041 

imeRpsBisR 


REP 48 LAST 1103 
HEP 323 LAST 1103 

HEP 3 LAST 1103 


T031 0 0008 1 a>su 
T032 5 0118 1 
T033 3 0001 0 
T034 52 155 1 
T035 0 0008 1 

T038 4 0001 1 

T037 1 8T4T 1 


EXTS® 

INOBX ACOniD 
OCA 0 
DkCH HPAC 
Einfiffl 
DCCM 

TCP BCVXV 


USR.S PAGE NO. 28 E 3 S3 




20’35 OCT. 28,1988 SATBAP .DOT PAOB 1105 



ASSaCLB leviSIOH 249 OP AOC PflOOEWM CQUBSUS Blf NASA 2021111-041 


L miBRPBBlBB 


P0689 WUPtB PHECISICK ADD HDUTWE. 


0690 




T040 

0 0006 

1 TAD 

ftCIB© 


0691 

ICP 

4T 

WST 1104 

T041 

5 0118 

1 

D03BX 

ADDRID 

0692 




T042 

3 0002 

0 

DCA 

1 

0693 

WF 324 

last 1104 

T043 

20 156 

1 

DAS 

MPAC *1 

0694 

BBP 

48 

lAST 1105 

7044 

50 116 

1 

IMIBlC 

ADDRBD 

0895 




7045 

6 0000 

1 

AO 

0 

0696 

Bap 

325 

last 1105 

7046 

6 0154 

1 

AO 

MPAC 

069T 

BBF 328 

1A3T 1105 

7047 

54 154 

0 

TS 

MPAC 

0698 

BBP 

19 

IAST 1102 

7050 

1 6030 

0 

TCP 

DANZIO 

0699 

BBF 

1 


7051 

1 6752 

0 

TCP 

®TCVF 


USeibiS PAOB NO. 29 B3 S3 


ADD MINOR PARTS FIRST. 


®T O/PJSa IF SUCH OCCURS. 





ASS»«LE RBVISICM 249 OP AOC PROffilAM COLOSSUS BY NASA 2021111-041 20*35 OCT. 28,196B SATRAP .007 PAOE 1106 


WIBHPHETBR 


USEIbS PAOB NO. 30 


POTOO ahiumbtic subroutines required in PIXED-PIXED. 


RCUOSlB 

DOrSUB 


REP 238 LAST 1103 


REP 239 LAST 1108 
REP 49 LAST 1105 


REP 50 


HEP 327 
HEP 211 
REP 328 
B0' 8 


HEP 329 


HEP 330 LAST 1106 


REP 331 
REP 332 


LAST 1106 

last 1106 


HEP 51 LAST 1106 


REP 9 LAST 1106 


REP 10 
REP 333 


LAST 1106 
LAST 1106 


REP 334 LAST 1106 


REP 11 
REP 335 
REP 240 


last 1106 

LAST 1106 

last 1106 




DCX«E PRBCISICN HX-TIPLY. HJLTIPLY THE CCNTENT3 OP MPAC,+i BY THE DP WORD WHOSE ADDRESS 
IS IN ADttMD AND LEAVE A TRIPLE PRSCISICN RESULT IN MPAC. 

RCXM) the TRIPLE PHSCISCN CCNIENTS OP MPAC TO Da«^ PRECISICN. 

take the dot PRODlX^ CP THE VECTOR IN MPAC AND THE VECTOR WHOSE ADDRESS IS IN ADDBWD 
AND LEAVE THE TRIPLE PRECISIQI RESULT IN MPAC. 

ySINQ THE CCNTKITS OP MPAC AS A DP AHDIMENT, EVALUATE THE POLYNCMIAL WHOSE DBTOEE AND 
COEPPICIENTS I»®)1ATELY PQLLOW THE TC POLY INSTttXlTICN (SEE ROTTINE POR DETAILS.) 

7052 50 002 0 IWP INDEX O BASIC SUBHOnTINE POR USB BY PINBALL, ETC 

7053 3 0000 1 CAP o ADHES OP ABQU^IT POUEWS TC DMP . 

7054 24 002 0 INCR o 

7055 54 116 0 -1 TS ADDOUD (PHOLCDUB POR ffiTTINO ADDRWD. ) 


7056 50 II6 1 DMPSU8 INDEX ADDIMD 


7057 3 0001 0 

7060 54 156 I 

7061 3 4714 1 

7062 56 155 0 

706 3 54 135 1 

7064 0 0006 1 

7065 7 0156 1 


CA 

TS 

CAP 

XCH 

TS 

BXTBTO 

MP 


CET MINOR PART CP OPERAND AT C(ADDHWD) . 


1 

MPAC +2 
ZERO 
MPAC +1 
MPTH4P 


THIS WOH(S POR SQUARINO MPAC AS WELL. 

»r MPAC +1 TO ZERO SO WE CAN ACCUMULATE 
THE PARTIAL PRCDUCTS WITH DAS 
INSmiCTICNS. 


MPAC +2 


MINOR CP MPAC X MINOR OP C(ADOiMD) . 


7066 56 156 0 

7067 0 0006 1 

7070 7 0154 0 

7071 20 156 1 


XCM MPAC +2 
EXTE® 

MP MPAC 

DAS MPAC 


DISCARD MINOR PART OP AflCVE RESULT AND 
POiW MAJOR OP MPAC X MINOR CP C(ADORWD) . 


CUARANTEED NO OVERFLOW. 


7072 50 116 1 

7073 3 0000 1 

7074 56 135 0 


INDEX ADDIMD 
CA 0 

XCH MPTEMP 


get major part GP ARaWENT AT C(ADDRWD) . 


0 0006 1 DMPSUB2 EXTB® 


SAVE AND BRING OUT MINOR OP MPAC. 


7076 7 0135 1 

7077 20 156 1 


MPTEMP 

MPAC 


MAJOR OP C(ADORWD) X MINOR OF MPAC. 
ACOjKJLATE, setting a to net OVERFLOW. 


7100 56 154 1 

7101 0 0006 1 

7102 7 0135 1 

7103 20 155 1 

7104 0 0002 0 


XCM MPAC 
EXTB® 

MP MPTEMP 

DAS MPAC 
TC o 


SETTING MPAC TO o OR ♦-! . 


MAJOR OP MPAC X MAJOR OP C(ADORWD) . 

guaranteed no overflow. 

49 MCt = .573 MS. INCSlDING RETURN. 




20*35 OCT. 28,1908 SATRAP ,007 PAOB HOT 



Hi ASSBVLB revision 249 OP AOC PBOORAM COLOSSUS BY NASA 2021111-041 . 

L DOERPieieR U®H<iS PA® NO. 31 

POY41 KXWD MPAC TO IXX0LB PB0CISICN, SETTINO OVPIND CN THB RARE EVBn* ® O/BBFLCm. 


B3 S3 


•743 

REF 212 

LAST 1108 

•744 

HEP 15 

LAST 1098 

•745 

BBF 338 

LAST 1106 

0746 

•747 

Ber 173 

LAST 1103 

•748 

REP 241 

LAST 1106 

0749 

REF 337 

LAST 1107 

0750 

HEP 338 

lAST 1107 

0751 

REP 242 

LAST HOT 

0752 

REP 339 

LAST HOT 

0753 

RS' 340 

LAST HOT 

0754 

REP 243 

LAST 1107 

0755 

REP 2 

LAST 844 

0758 

REP 244 

LAST HOT 



7105 

3 4714 

1 

houndsub cap 

ffRO 

7106 

54 163 

1 

♦1 

TS 

MCS8 

7107 

56 156 

0 

VROUND 

XCH 

MPAC *2 

7110 

8 0000 

1 


DOUBLE 


Till 

54 001 

1 


TS 

L 

TH2 

0 0002 

0 


IC 

0 

TH3 

6 0155 

0 


AO 

MPAC *1 

7114 

54 155 

1 


TS 

MPAC +1 

TH5 

0 0002 

0 


tc 

0 

TH6 

6 0154 

1 


AD 

MPAC 

TUT 

54 154 

0 


TS 

MPAC 

T120 

0 0002 

0 


TC 

0 

7121 

54 121 

1 

SETCVP2 

TS 

OVPIND 

7122 

0 0002 

0 


TC 

0 . 


SET MPAC +2 = 0 for SCALARS AND CHAN® 
MO® TO DP. 

Birr RE NEEDNT TAKE THE TI® FOR VECTORS 

ADO ROUNDINO BIT IP MPAC +2 WAS GREAIBR 
THAN .5 IN MA®ITU3E. 

PROPAGMIE interflow. . 

(RARE). 



I 



ASSaCLB HEVISICW 249 OP AC3C PRO®AM COUSSUS BY IttSA 2021111-041 
mstraBiBR 


P0T5T 

ROTSg 

R0T61 

0703 

0764 

0765 

0766 
6767 

0768 

0769 

6770 

6771 
0772 


20*35 OCT. 28,1968 SATSAp .007 PAGE ii08 
US8IUS PACE NO. 32 . *3 S3 

m S’ vena, m 

m.’ 1,*:^ ; Si»d 


— — *V • X 

BBP 4 lAST 68 


REP 5 
REP 1 
HEP 341 
HEP 342 
HEP 46 
HEP 343 
HEP 47 


last 68 

l^ST 1107 
1108 
l^ST 1103 
IAST 1108 

last 1108 


0773 

REP 

5 

last 1108 

6774 

REP 

52 

last 1106 

6775 

REP 

2 

last 1108 

0776 

REP 

344 

last 1108 

6777 

REP 

48 

LAST 1108 

6778 

REP 

345 

IAST 1108 

0779 

REP 

49 

last 1108 

0780 

REP 

50 

LAST 1108 

6781 

0782 

REP 

3 

LAST 1107 

0783 

REP 

346 

LAST 1108 

0784 

REP 

347 

last 1108 

6785 

REP 

6 

last 1108 

0788 

REP 

S3 

last 1108 

6787 

REP 

3 

last 1108 

0788 

REP 

51 

last 1108 

0789 

REP 

348 

last 1108 

0790 

REP 

349 

last 1108 

0791 

REP 

52 

last 1108 

0792 

REP 

350 

last 1108 

0793 

REP 

6 

last 1108 

0794 

REP 

2 

last 1102 

0795 

REP 

7 

last 1108 


7125 

0 0008 1 

DOTSLB 

BxT»ro 

7126 

22 137 1 


(MCH 

OOTHET 

7127 

0 7056 0 


TC 

DMPSUB 

7130 

52 160 1 


DXCH 

MPAC ts 

7131 

52 155 1 


DXCM 

MPAC 

7132 

52 131 0 


dkch 

BOP 

7133 

3 0156 0 


CA 

MPAC +2 

7134 

54 132 0 


TS 

+2 

7135 

3 0138 0 


CA 

DOTINC 

7138 

26 116 0 


AOS 

addrwd 

7137 

0 7056 0 


TC 

dmpsub 

7140 

52 156 1 


DXCM 

MPAC +1 

7141 

20 132 0 


DAS 

BUP *1 

7142 

6 0154 1 


AO 

MPAC 

7143 

6 0130 0 


AD 

BUP 

7144 

54 130 1 


TS 

BUP 

7145 

1 7147 0 


TCP 

*2 

7146 

54 121 1 


TS 

OVPIND 

7147 

52 162 0 


DXCH 

MPAC *5 

7150 

52 155 1 


DxCH 

MPAC 

7151 

3 0136 0 


CA 

DOTINC 

7152 

26 116 0 


AOS 

ADOHWD 

7153 

0 7056 0 


TC 

DMPSUB 

7154 

52 132 0 

ENDOOT 

DXCH 

BUP +1 

7155 

20 156 1 


CMS 

MPAC 

7156 

8 0154 1 


AO 

MPAC 

7157 

6 0130 0 


AO 

HUP 

7180 

54 154 0 


TS 

MPAC 

7161 

0 0137 1 


TC 

OOTRET 

7162 

0 6766 0 


TC 

OVERFLOW 

7163 

0 0137 1 


TC 

OOTHET 


SAVE BB7UI«. 
dot X CCMPCNENT3. 

POSITICN Y CCMPCNBNT OP MPAC FOB 
HtTIPLICATICN WHILE SAvMO RESULT IN 

three word Hopper, bop 


advance ADDHWD TO Y COfPOlENT OP 
OlHEH ARGIMNT. 

ACCU«>TE partial PRODUCTS. 


IP CVEHPLOw OCCURS. 

MtTIPLY Z CCMPCNBITS. 

LEAVE PINAL ACCIMXATICN IN MPAC. 

CM CVERFLOw here. 






JU 

L 

P0T9e 


ASSBfBlS HSVISION 249 OP AOC PROORAM COLOSSUS BY NASA 2021111-041 
DnBRPSSieR 

DCX^LB PBECISION POLYNCMIAL EVALUATOR 


■OT9T 

B0T9S 

msoo 


20*35 OCT. 28,1968 SATRAP .OOT PAOB 1109 
USEIfaS PACE NO. 33 B3 S3 


N-1 


THIS ROUTINE EVALUATES A X 
N 


A X 
M-1 


* A X * A lEAVDO the DP RESULT IN MPAC ON EXIT. 

1 S 


R0801 VS ROUTINE HAS TWO aHRIES 


R0802 

110804 


1. EflHY THRU POWRSEHS. THE COEPEICIENT3 MAY BB EITHER IN PIXHD OR ERASABLE, THE CALL IS BY 
TC POroSERS, AND THE BETUIW IS TO LOCCIC PO»RSERS)+l. THE BITERINO DATA MUST BE AS FOLLtWS 

ADDRESS FOR REPEHBlCINa COEE TABLE 
N IS THE DEOBEE OP THE POWER SERIES 

ARDuen* 


Aosoe 

A 

8P 

LOC-3 

A 08 OT 

L 

8P 

N-1 

AOSOS 

MPAC 

DP 

X 

A 0809 

L0C-2M 

DP 

A(o) 

Aosio 

Aosil 

LOC 

isp 

AIN) 

R0812 

2. ENTRY THRU POLY. THE CALL TO POLY AND THE 

ENTERING 

Aoei4 

MPAC 

DP 

X 

AOSIS 

LOC 

TC 

POLY 

Aoaio 

LOCtl 

SP 

N-1 

AoaiT 

LOCt2 

DP 

A(o) 

A0818 

AOS19 

loc*»i +2 iv 

A(N) 


AHONBIT 


RETURN IS TO LOC+2N+4 


0820 





T164 

0821 

RHP 

1 



Ties 

0822 

REP 

16 

LAST 

1099 

TI 66 

0823 

REP 

1 



Tier 

0824 

HEP 

1 



TITO 

082S 

REP 

245 

LAST 

HOT 

Tin 

0820 





T1T2 

082T 

REP 

2 

LAST 

1109 

T173 

0828 





T1T4 

0829 

REP 

248 

LAST 

1109 

T1T5 

0830 

REP 

IT 

LAST 

1109 

Tiia 

0831 

REP 

2T 

LAST 

1103 

TITT 

0832 

REP 

2 

LAST 

1109 

7200 

0833 

HEP 

1 



T201 

0834 

HEP 

54 

LAST 

1108 

T202 

0835 





T203 

0836 

REP 

18 

LAST 

1109 

T204 

683T 





7205 


0 0006 

1 

POWBSBRS EXTEND 


22 141 

0 


QXC« 

PCLYRBT 

54 IIT 

1 


TS 

POLISH 

22 140 

1 


LXCH 

pa,YCNT 

1 T201 

1 


TCP 

POLYCCM 

50 002 

0 

POLY 

INDEX 

0 

3 0000 

1 


CAP 

0 

54 140 

0 


TS 

POLYCNT 

6 0000 

1 


DOUBLE 


6 0002 

0 


AD 

0 

54 117 

1 


TS 

pOLiai 

6 4715 

0 


AD 

FIVE 

54 141 

1 


TS 

pa,YHBT 

3 6242 

0 

POLYCCM 

CAP 

LVBUP 

54 116 

0 


TS 

ADDRWD 

0 0006 

1 


EXTEND 


5 0117 

0 


INDEX 

pa,ISH 

3 0004 

0 


DCA 

3 


HEIURN ADDRESS 
power series address 
N-1 TO COUNTER 
SKIP SET UP BY POLY 


N-1 TO COUNTER 


l(A(n))-3 to pa,ISH 

STORE RETURN ADDRESS 

INCQ4ING X WILL BE MOVED TO VBUE, SO 
ffiT ADOHWD SO DMPSUB WILL MPY BY VBlP 



2021111-041 


I I 



W" Assetvus REVISION 249 OP AOC I«X»4M COLOSSUS BY NASA 
!• meRPBEisi 


20’35 oor. 28,1988 SATRAP .007 PAOB mo 
USBRaS PAOB NO. 34 B3 S3 


0838 

REP 

351 

last 1108 

8839 

RBP 

23 

last 1085 

8848 


1 


8841 

REP 

3 

last 1109 

8842 . 

RBP 

53 

last 1108 

8843 

REP 

19 

last 1109 

8844 

8845 

RBE 

4 

last 1108 

8846 

8847 

Rap 

20 

last 1110 

0648 

RBP 

352 

last 1110 

8849 

or 

4 

last 1110 

0850 

RBP 

1 


0851 

RBP 

3 

last 1109 


7208 

52 155 1 

DXCH 

MPAC 

7207 

52 123 0 

OXCH 

VBuP 

7210 

1 7214 0 

TCP 

POLY2 

7211 

54 140 0 

POLYLOQP TS 

POLYCNT 

7212 

4 4711 0 

cs 

•no 

7213 

28 117 1 

AOS 

POLISH 

7214 

0 7056 0 

POLY2 TC 

DMPSlB 

7215 

0 0006 1 

Bxia® 


7216 

5 0117 0 

INDEX 

POLIW 

7217 

3 0002 0 

OCA 

1 

7220 

20 155 1 

OAS 

MPAC 

7221 

10 140 0 

CCS 

POLYINT 

7222 

1 7211 0 

TCP 

PCLYLOOP 

7223 

0 0141 0 

TC 

POLYRET 


LOAD AIN) INTO MPAC, 
saving X IN VBUP 

SAVE DBCRHOITED LOOP COIWIEH 
HBCaESS COEPPICIBRT POINTER 
HJLTIPLY BY X 

ADO IN NEXT COEPPICIENT 

users respinsibility To assure no OVPLOW 


return caller 





Ill 

ASSEMBLE fflUraSOF 249 O' AOC PROtaWM CCXXJSSUS by NASA 2021111-041 20*35 OCT. 28,1968 SATRAP .OOT PAOB nil 

I, INTBRPfEaSl USEIWS PAOB NO. 35 *3 S3 

pgg 32 an^fflllANEOUS MULTI-PRBCISICM BOOTINES RBajIHH) IN PIXED-PIXED RJT NOT USHO BY THE 1NTEBP8BIBB. 


085396 BBP 213 OAttn" HOT 
085399 REP 353 1110 


T224 3 4T14 1 DPACfflEE CAP 


T22S 54 156 1 


13 


ZERO 
l«AC *2 


0854 

HEP 

247 

njnsn' 11109 

7226 

22 002 

0 

TPAGBSS IXCH 

0 

0855 

HEP 

1 


7227 

0 6672 

1 

tc 

BRANCH 

0856 

REP 

1 


7230 

1 7234 

1 

TCP 

ARG*^ 

0857 

IBP 

.1 


7231 

1 7254 

1 

TCP 

ARG^RO 

0858 

0859 

REP 

28 

HAST £043 

7232 

7233 

4 4672 
1 7235 

1 

0 

CS 

TCP 

POS44X 

*2 

0860 

REP 

29 

lAfflr mil 

7234 

3 4672 

0 

AROt CAP 

P034AX 

.0861 

0862 

HEP 

248 

DAiar mil 

7235 

7236 

54 002 
0 0006 

1 

1 

T3 

Extend 

0 

0863 

REP 

295 

HAST m03 

7237 

24 000 

1 

AUG 

A 

0864 

REP 

354 

nAar mii 

7240 

6 0156 

0 

AO 

MPAC +2 

0865 

REP 

355 

HAST mil 

7241 

54 156 

1 

TS 

MPAC +2 

0866 

REP 

214 

nAaar mii 

7242 

3 4714 

1 

CAP 

ZERO 

086T 

REP 

249 

nAOT mil 

7243 

6 0002 

0 

AD 

0 

0888 

REP 

356 

hast mil 

7244 

6 0155 

0 

AD 

MPAC +1 

0869 

REP 357 

lAsr mil 

7245 

54 155 

1 

TS 

MPAC 

08T0 

REP 

215 

lAair mil 

7246 

3 4714 

1 

CAP 

ZERO 

08T1 

REP 

250 

iiAsar mil 

7247 

6 0002 

0 

AD 

0 

08TZ 

REP 

358 

lABT mil 

7250 

6 0154 

1 

AD 

MPAC 

0873 

REP 

359 

OAST mil 

7251 

54 154 

0 

AHGZERO 2 TS 

MPAC 

0874 

REP 

360 

OAST mil 

7252 

54 155 

1 

TS 

MPAC ♦! 

0875 

REP 

174 

oAsar HOT 

7253 

0 0001 

0 

TC 

L 

0876 

REP 

381 

oAsir mil 

7254 

54 156 

1 

AHGzBRO TS 

MPAC +2 

0877 

ROSTS 

REP 

1 

7255 1 7251 1 TCP AH(aER02 

MJLTIPLIBS THE TP CCNTENTS OP MPAC BY THE SINGLE 

0880 

0881 

REP 

12 

HAST m06 

T256 

T257 

54 135 
0 0006 

1 

1 

3IQRTMP TS 

EXTBTO 

MPieff* 

0882 

REP 

362 

OASHT mil 

7260 

7 0156 

1 

MP 

MPAC ♦2 

0883 

REP 

363 

lAar mil 

7261 

54 156 

1 

TS 

MPAC +2 

0884 

REP 

216 

lASHT mil 

7262 

3 4714 

1 

aiORlMPz CAP 

ZERO 

0885 

REP 

364 

lAear m'li 

7263 

56 155 

0 

xm 

MPAC +1 

0886 

REP 

1 


7264 

1 7075 

0 

TCP 

DMPSUBZ 


DCXBLE PBECISICN BnBY - 
ZERO UW-ORDBR WOBD 

POHCB SIGN AQRE©EIT AMtWO THE TRIPLE 
PRECISION CONTENTS OP KPAC. HETUIWINO 
WITH SIGNlM CP THE INPUT IN A. 


IP NBQATIVE. 


POH4S *-1.0. 


O STIU, HAS POS>MX OH NEGM»X IN IT. 
AUfAYS 9CIPPING UNLESS AHGZERO. 
RETURN VIA L. 

set all THREE MPAC REGISTERS TO ZERO. 


SO subsequent das will WORC. 




11 
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IHIBHraBlER 


P088T 

>0888 

>0889 

>0890 

>0891 

>0892 


HAiTIPLIES THS Dp PBACriCN ARNIYINQ IN MPAC BY TOB «p 
ARRmNO IN A. IHB DP PKOXCT DEPARTS BOm W 

NOIE THAT MPNSUB NCeOBLLY INCrsASSS TKB MACKIHjDB 1HR 
CWI^ OP WAC. the CXiSTOaa HOT WSUEB TOTBI^Tx 

^ AT^C^r^s. 


20*35 OCT. 28,1968 SATRAP .OOT PACE 1112 
USEJfaS PACE NO. 38 E3 S3 


0893 

0894 
8895 
0898 
889T 

0898 

0899 

0900 

0901 
0iNI2 
0903 


1 


REP 365 
REP 366 


last nil 
last 1112 


REP 2 
REP 175 
REP 367 


last 1112 
last nil 
last 1112 


REP 388 
REP 251 


last 1112 
last nil 


T28S 

7268 

7267 

7270 

7271 

7272 

7273 

7274 

7275 

7276 

7277 


54 135 
0 0006 
7 0155 
52 155 
0 0006 
T 0135 
3 0001 
26 154 
0 0006 
3 0155 
0 0002 


1 DMPNSlE 


T3 DMPNieiP 

Einaro 

HP MPAC ♦! 

DXCH MPAC 

EXTSND 

MP BMPNl»fi> 

CA L 

AOS MPAC 

Extend 
dca mpac 

tc o 


LQ» PBCDUJr TO MPAC, HICH FACTOR TO A 


coipletino the PRCDoCT in mpac 
bhinoino the PRCDuCT into a and l 
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meRPREIBR 


USBitaS PAGE NO. 37 E3 83 


P0904 MlSCELtANEOUS VECTOR OFBRATICMS. INCLUXD HERB ARB IHB PQLL09IN0* 


lt090S 



1. dot 


DP vector dot product. 



R0906 



2. VXV 


DP vector Cross product 



R090T 



3. VX3C 


DP vector TK®3 

SCALAR. 



R0908 



4. V/SC 


DP vector DIVIDED BV SCALAR. 


R0909 



5. VPROJ 


DP vector PHOJECTIQI. ( 

(MPAC.X)MPAC ). 


R0910 



6. VXM 


DP vector post-h*,tiplied by matrix. 


110911 



7. 


DP VECTOR PRB-MtTlPLIED BY MATRIX. 


0912 

WSP 

1 


7300 

0 7123 0 dot 

IC 

PRHXIT 

DO THE DOT PRODUCT AND EXIT, OHANGINO 

0913 

BH' 

217 

LAST 1111 

7301 

3 4714 1 DMODB 

CAP 

2EBO 

THE MODE TO DP SCALAR. 

0914 

HS' 

3 

LAST 1094 

7302 

1 6027 0 

TCP 

NERMCDE 


0915 

HEP 

54 

LAST 1110 

7303 

3 4711 1 MXV 

CAP 

T»0 

fflT UP mating and doting por row 

0916 

l*8» 

5 

LAST 68 

7304 

54 140 0 

TS 

mating 

vectors. 

0917 

HSP 

1 


7305 

1 7311 1 

TCP 

VXM/MXV 

00 TO CCMWCN PORTION. 

0918 

HEP 

9 

LAST 1040 

7306 

4 4377 1 VlOA 

CS 

TEN 

ffiT mating and doting TO REFER TO MATRIX 

0919 

REP 

0 

LAST 1113 

7307 

54 140 0 

TS 

mating 

AS THREE C0LIM7 VECTORS. 

0920 

REP 

35 

LAST 1028 

7310 

3 6211 0 

CAP 

six 



1 
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ASSMLB leviSICN 249 op AOC PRCXSWM colossus by NASA 2021111-041 
WBHPRBTER 


P0921 



OCIMDN PORTION OP HXV ASD VXH. 



0922 

REF 

T 

WST 1108 

7311 

54 136 1 

VXM/^«{V TS 

DOTINC 

110923 



ITRACE < 2 ) 

refers to aVXM/NKVA. 



0924 

REF 

1 


7312 

0 7501 1 

7C 

MPACvflUP 

0925 

REP 

1 


7313 

0 7125 0 

7C 

DorsuB 

0926 




7314 

0 0006 1 

BXTB® 

092T 

REP 

24 

last 1110 

7315 

3 0123 1 

DCA 

VBUP 

0928 

HEP 

369 

last 1112 

7316 

52 155 1 

DXCH 

MPAC 

0929 

REF 

11 

last 1074 

7317 

52 134 0 

DXCM 

BUP 2 

0930 




7320 

0 0006 1 

exteso 

0931 

IffiP 

25 

last 1114 

7321 

3 0125 1 

DCA 

VflUP >2 

0932 

HEP 

370 

last 1114 

7322 

52 160 1 

DXOH 

MPAC 4-3 

0933 




7323 

0 0006 1 

EXTH® 

0934 

REP 

26 

last 1114 

7324 

3 0127 0 

DCA 

VBUP +4 

0935 

HEP 

371 

last 1114 

7325 

52 162 0 

DxOM 

MPAC +5 

0936 

REP 

7 

last 1113 

7326 

3 0140 1 

CA 

MITINC 

093T 

REP 

55 

last 1109 

7327 

26 116 0 

AOS 

ADDRWD 

0938 

REP 

2 

last 1114 

7330 

0 7125 0 

IC 

DorsuB 

0939 

REP 

27 

last 1114 

7331 

52 123 0 

OxCM 

VflUP 

0940 

REP 

372 

last 1114 

7332 

52 155 1 

OXCM 

MPAC 

0941 

REP 

28 

LAST 1114 

7333 

52 1 25 0 

DXOH 

VflUP +2 

0942 

REP 

373 

LAST 1114 

7334 

52 160 1 

DXCH 

MPAC 43 

0943 

REP 

29 

last 1114 

7335 

52 127 1 

DXOH 

VBUP 44 

0944 

REP 

374 

last 1114 

7336 

52 162 0 

DXCH 

MPAC 45 

0945 

REP 

8 

last 1114 

7337 

3 0140 1 

CA 

MATINC 

0946 

REP 

56 

last 1114 

7340 

26 116 0 

ADS 

ADDflWO 

094T 

REP 

3 

LAST 1114 

7341 

0 7125 0 

TC 

DOrSUB 

0948 

REP 

12 

LAST 1114 

7342 

52 1 34 0 

DXCH 

BUP2 

0949 

REP 

375 

last 1114 

7343 

52 155 1 

DXCH 

MPAC 

0950 

REP 

376 

last 1114 

7344 

52 162 0 

DxCH 

MPAC 45 

0951 

REP 

30 

LAST 1114 

7345 

52 125 0 

DXCH 

VflUP 42 

0952 

REP 

377 

last 1114 

7346 

52 160 1 

DxCH 

»PAG 43 

0953 

REP 

20 

last 1105 

7347 

1 6030 0 

TCP 

DANZIG 


USBBaS PACE NO. 38 B 3 83 

SAVB vector in MPAC POR PtJRlBai USE. 

00 DOT TO CET X CCMPCNmr OP ANSWER. 

MtVE MPAC vector BACK INTO MPAC, SAVING 
NB» X CCMPCNENT IN BUF 2 . 


initialize ADDRWD for next DOT PRODUCT. 
FORMS BASE ADDRESS OP NEXT COUJWCROW) . 


MCVE GIVEN vector BACK TO MPAC, SAVING Y 

cotpojaiT OP answer in vbup *2. 


FORM ADDRESS OP LAST CCUJW OR ROW 


answer now CCMPLBTB. put CCMPCNBITS INTO 
PROPER MPAC registers. 


EXIT. 



V, 
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t. meRPRBTER USBikS PAOB NO. 39 E3 S3 

P0954 VXSC - vector TIMES SCALAR. 


•955 

RHP 

16 

IAST 1107 

7350 

10 163 

1 

VXSC 

CCS 

MODE 

TEST PHE»IT MODE. 

•956 

RHP 

1 


7351 

1 7377 

1 


jOf 

DVXSC 

separate ROUTINE BHOI SCALAR IS IN MPAC. 

•95T 

RHP 

2 

lAST 1115 

7352 

1 7377 

1 


TCP 

wxsc 


•958 

RHP 

5 

last 1110 

7353 

0 7058 

0 

wxsc 

TC 

CMPSUB 

CCMPUIB X CCMPCNHIT 

•959 

REP 

1 


7354 

0 7107 

0 


IC 

VROUND 

and rouo it. 

0980 

REP 

378 

last 1114 

7355 

52 180 

1 


dxch 

MPAC +3 

PUT Y CCMPCHBIT INTO MPAC SAVING MPAC IN 

•981 

BEP 379 

LAST 1115 

7358 

52 155 

1 


OXCH 

MPAC 

MPAC * 3 . 

•982 

RHP 

380 

LAST 1115 

7357 

52 160 

1 


OXCH 

MPAC +3 


•963 

I«P 

6 

LAST 1115 

7380 

0 7056 

0 


TC 

DMPSUB 

DO SA* FOR Y AND Z CCMPCNEVTS. 

•984 

BSP 

2 

LAST 1115 

7361 

0 7107 

0 


TC 

VHDU© 


•985 

REP 

381 

LAST 1115 

7382 

52 162 

0 


OXCH 

MPAC +5 


•968 

REP 

382 

LAST 1115 

7383 

52 155 

1 


OXW 

MPAC 


•96T 

REP 

303 

LAST 1115 

7364 

52 162 

0 


OxCH 

MPAC *5 


•968 

BEP 

T 

LAST 1115 

7365 

0 7056 

0 


TC 

DMPSUB 


•969 

IffiP 

3 

LAST 1115 

7366 

0 7107 

0 


TC 

VROUND 


•9T0 

RHP 

384 

lAST 1115 

7367 

52 155 

1 

VHOBATEX DXQI 

MPAC 

EXIT usa> TO RESTORE MPAC APIEH THIS 

09T1 

BEP 

385 

tAv>?T 1115 

7370 

52 162 

0 


DXCH 

MPAC +5 

TYPE OP BOTATICN. CALLED BY VECTOR SHIPP 

•972 

RHP 

386 

UlS 

7371 

52 160 

X 


DXCH 

MPAC +3 

RiaiT, V/SC, BlC. 

•973 

HEP 

,361 

lUS 

7372 

52 155 

1 


DxCH 

MPAC 


•974 

REP 

21 

" U14 

7373 

1 6030 

0 


TCP 

DANZIO 






i 


M9T5 
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09T0 

REP 2 

IAST 1113 

T3T4 

0 7123 

0 

VPROJ 

TC 

PHBDOT 

<MPAC.X)MPAC IS OCMPUTEO AND LEFT IN 

09TT 

BH' 15 

lAST 1030 

T3T5 

4 4710 

1 


cs 

POUR 

MPAC. DO DOT AND PALI. INTO DVXSC. 

09T8 

BBS' 5T 

IAST 1114 

7376 

26 116 

0 


AOS 

AOOmO 


R09T9 


VXSC SCALAR ARRIVES IN MPAC AND VECTOR IS AT X. 


0980 



7377 

0 0006 

1 

Dvxsc 

EXTEfTO 

SAVE SCALAR IN MPAC 43 AND GET X 

0981 

RH' 388 

lASr 1115 

7400 

3 0155 

0 


DCA 

WAC 

CpIPCNENT OP ANSWER. 

0982 

BEP 389 

last 1118 

7401 

52 160 

1 


DXfM 

MPAC +3 


0983 

BBP 8 

tAST 1115 

7402 

0 7056 

0 


IC 

DMPSUB 


0984 

BEP 4 

lASP 1115 

7403 

0 7107 

0 


TC 

VROWD 


0985 

BEP 55 

last 1113 

7404 

3 4711 

1 


CAP 

TVIO 

AIVANIS AIXWSiD TO Y OMPCWBrr OP X. 

0986 

BBP 58 

IAST 1116 

7405 

26 116 

0 


AOS 

ADDH6D 


098T 



7406 

0 0006 

1 


BXTB® 



0988 

BBP 390 

last 1116 

7407 

3 0160 

0 


DCA 

MPAC *3 

PUT SCALAR BACK INTO WAC AND SAVE 

0989 

BEP 391 

IAST 1116 

7410 

52 155 

1 


DXCH 

M>AC 

X RESULT IN MPAC 45. 

0990 

BS' 392 

last 1116 

7411 

52 162 

0 


E6<CH 

MPAC +5 


0991 

REP g 

last 1116 

7412 

0 7056 

0 


TC 

DMPSUB 


0992 

REP 5 

last 1116 

7413 

0 7107 

0 


TC 

VRCUND 


0993 

BBP 56 

last 1116 

7414 

3 4711 

1 


CAP 

TWO 


0994 

REP 59 

last 1116 

7415 

26 116 

0 


AOS 

ADOBWD 

TO Z CCMPCNaiT. 

0995 

RH' 393 

last 1116 

7416 

52 160 

1 


DKCH 

MPAC +3 

Bring scalar raqc, puttino y result in 

0996 

RHP 394 

LAST 1116 

7417 

52 155 

1 


DkCH 

MPAC 

THE PROPER PLACE. 

099T 

REP 395 

LAST 1116 

7420 

52 160 

1 


ekch 

MPAC 4-3 


0998 

REP 10 

LAST 1118 

7421 

0 7056 

0 


TC 

EMPSUB 


0999 

REP 6 

LAST 1116 

7422 

0 7107 

0 


TC 

VHCU® 


1000 

REP 396 

IAST 1116 

7423 

52 155 

1 


OXCH 

MPAC 

PUT Z CQIPCMeiT IN PROPER PLACE, ALSO 

1001 

REP 39T 

last 1116 

7424 

52 162 

0 


DXCM 

MPAC 45 

positioning X. 

1002 

RH' 398 

last 1116 

7425 

52 155 

1 


DxCH 

MPAC 


1003 

BEP 1 


7428 

1 6470 

0 


TO' 

VMCDE 

MODE HAS CHANGED TO VECTOR. 
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ms vECiOR Cross phodoot routine calcuaies (x h -x h ,x m -x m ,x m -x m ) whbf» m is the vector in 

322313312112 

»ftC AlO X THE vector AT THE OIVEI ADDRESS. 


2010 

HBE 399 

lAST 1110 

toil 

REF 400 

LAST 1117 

1012 

HHF 

31 

LAST 1114 

1013 

REF 

11 

LAST 1118 

1014 




1015 

REF 401 

LAST 1117 

1010 

RHF 402 

LAST 1117 

1017 

REF 

32 

LAST 1117 

lOlB 

REF 

12 

LAST 1117 

1019 

REF 

57 

LAST 1116 

1020 

REF 

00 

LAST 1116 

1021 




1022 

REF 403 

LAST 1117 

1023 

REF 404 

LAST 1117 

1024. 

HEP 405 

LAST 1117 

1025 

REF 

13 

LAST 1117 

1020 




1027 

REF 

33 

IAST 1117 

1028 

REF 408 

LAST 1117 

1029 

REF 

34 

LAST 1117 

1030 

REF 

14 

LAST 1117 

1031 

MF 

58 

LAST 1117 

1032 

REF 

01 

LAST 1117 

1033 




1034 

REF 

35 

LAST 1117 

1035 

REF 407 

LAST 1117 

1030 

REF 408 

LAST 1117 

1037 




1038 




1039 

REF 

3 

LAST 1103 

1040 

REF 

15 

LAST 1117 

1041 

REF 

36 

LAST 1117 

1042 

REF 409 

LAST 1117 

1043 

REF 410 

LAST 1117 

1044 

REF 411 

LAST 1117 


7427 

0 0006 

1 vxv 

EXTEND 


7430 

3 0162 

1 

OCA 

tVAC 

7431 

52 155 

1 

DXCH 

MPAC 

7432 

52 123 

0 

DXCH 

VBUF 

7433 

0 7056 

0 

IC 

DMPSIfl 

7434 

0 0006 

1 

EXTB® 


7435 

4 0160 

1 

DCS 

MPAC *3 

7436 

52 155 

1 

DXCH 

MPAC 

7437 

52 125 

0 

DXCH 

VBUF *2 

7440 

0 7056 

0 

TC 

DMPSUB 

7441 

3 4711 

1 

CAP 

•WO 

7442 

26 116 

0 

ADS 

ADDinD 

7443 

0 0006 

1 

®CIB© 


7444 

4 0162 

0 

DCS 

MPAC *5 

7445 

52 155 

1 

DXCH 

MPAC 

7446 

52 162 

0 

OXCH 

MPAC *5 

7447 

0 7056 

0 

TC 

DMPSUB 

7450 

0 0006 

1 

EXTEND 


7451 

3 0123 

1 

DCA 

VBUP 

7452 

52 155 

1 

DXCH 

MPAC 

7453 

52 127 

1 

DxCH 

VBUP *4 

7454 

0 7056 

0 

TC 

DMPSUB 

7455 

3 4711 

1 

CAF 

TWO 

7456 

26 116 

0 

AOS 

ADOiMO 

7457 

0 0006 

1 

EXTEND 


7460 

4 0123 

0 

DCs 

VBUP 

7481 

52 155 

1 

DXCH 

MPAC 

7462 

20 162 

0 

DAS 

MPAC +5 

7483 

0 0006 

1 

BXTBTO 


7464 

1 7466 

0 

BZF 

♦2 

7465 

0 6760 

0 

TC 

OVEHFLWZ 

7466 

0 7056 

0 

TC 

DMPSlE 

7487 

52 125 

0 

Dxm 

VBUF *2 

7470 

52 160 

1 

DxCH 

MPAC ^3 

7471 

52 155 

1 

DXCH 

MPAC 

7472 

20 160 

1 

DAS 

MPAC *3 

7473 

0 0006 

1 

EXTBJD 


7474 

1 7476 

1 

BZF 

*2 


POK4 UP M3XI. LEAVING Ml IN VBUP. 


CALCULATE -XIM2, SAVING XIM3 IN VBUP +2. 


ADVANCE ADDIWD TO X2. 


PREPARE TO GET -X2M3, SAVIWJ -XIM2 IN 
MPAC +5. 


GET X2Ml , SAVING -X2M3 IN VHUP +4 . 


advance ADDHWD TO X3. 


get -XSMl , ADDING X»Ml TO MPAC +5 TO 
CCMPLETE THE Z CCMPCNRJT OF THE ANSWER. 


MOVE XIM3 TO MPAC +3 setting UP FOR XiM2 
AND ADO -X3M1 TO MPAC +3 TO COMPLETE THE 
Y CCMPCNENT OF THE RESULT. 


I 




u 
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1048 

1049 

1050 

■1051 

1053 
1K4 

loss 
loss 

IKT 
IKS 
1059 

1050 

1051 

1052 
■10S3 

loss 
loss 

lOST 

loss 

10S9 

lOTO 

ton 

10T2 
10T3 
10T4 
10T5 
lOTS 
lOTT 

10T8 BBP 
10T9 RBP 
lOSO REP 

1081 REP 

1082 

1083 REP 

1084 HEP 

1085 


16 LAST HIT 
3T LAST HIT 
4 LAST 1104 


T4T5 

0 6T63 

0 

TC 

overplwy 

T4T6 

0 TOSS 

0 

TC 

DMPSUB 

T4TT 

52 IZT 

1 

PXCH 

VBUP «.4 

T500 

1 8T4T 

1 

ICP 

ENDVXV 


20’35 OCr. 28,1988 SATRAP .OOT PAGE 1118 
USBbS PAOB no. 42 B 3 S3 


GO ADO -X2M3 TO X3M2 TO CCMPLBIE THE X 
CCMPCNBIT (TAIL BID CF DAD). 


' 412 
' 38 

“ 413 
' 39 

' 414 
40 

252 


THE MPACVBUP aBROTTINB SAVES THE VECTOR IN MPAC IN VBUP WITHOUT CLOBBERING MPAC. 

CAUB) BY «(V, VXM, AND UNIT. 


last hit 
last 1118 

last 1118 
last 1118 

last 1118 
last 1118 
last 1112 


296 LAST 1111 
1 

253 LAST 1118 
1 

254 LAST 1118 

1T6 LAST 1112 
9 LAST 1062 

10 LAST 1118 
29T LAST 1118 

ITT LAST 1118 
1T8 LAST 1118 

255 LAST 1118 

1T9 LAST 1118 

11 LAST 1033 
24 LAST 1089 

298 last 1118 


180 

181 


last H18 
last 1118 


1086 REP 256 LAST 1118 


T501 

0 0006 1 MPACVBUP EXTB© 

T502 

3 0155 0 

DCA 

MPAC 

T503 

52 123 0 

OxCH 

VBUP 

T504 

0 0006 1 

EXTEND 

T50S 

3 0160 0 

DCA 

MPAC +.3 

T506 

52 125 0 

DXCH 

VBUP +2 

T50T 

0 0006 1 

EXTEND 

T510 

3 0162 1 

DCA 

MPAC +5 

T5H 

52 1 27 1 

DxCH 

VBUP 4.4 

TS12 

0 0002 0 

TC 

0 

ICN SIGN A(3^ ROUTINE. 

arrive with input 

TS13 

10 000 0 ALSIGNAG CCS 

A 

T514 

1 7520 0 

TCP 

UPPOS 

T515 

0 0002 0 

TC 

0 

TS16 

1 7530 1 

TCP 

UPN0O 

75 IT 

0 0002 0 

TC 

0 

TS20 

56 001 0 UPPQS 

XCH 

L 

7521 

6 4675 1 

AD 

HALF 

7522 

8 4675 1 

AD 

HALF 

7523 

54 000 0 

ts 

A 

7524 

1 7528 0 

TCP 

♦2 

7525 

24 001 0 

inch 

L 

7526 

56 001 0 

XCH 

L 

7S2T 

0 0002 0 

TC 

0 

7530 

56 001 0 UPNBG 

XCM 

h 

7531 

6 4674 0 

AD 

NBGMAx 

7532 

6 7716 0 

AD 

NBGCNB 

7533 

54 000 0 

TS 

A 

7534 

1 T536 1 

TCP 

*2 

7535 

24 001 0 

INCR 

L 

7536 

56 001 0 

XCH 

L 

7537 

4 0000 0 

CCM 


7540 

0 0002 0 

TC 

0 


HEIUIW TO CALLER. 

OunVT IS IN A ♦ L. 

TEST UPPER PART. 

IT IS POSITIVE 

zero 

negative 

ZERO 

SAVE DeCRB®(TH) UPPER PART. 


acIPS OI OVERFLOW 

restore UPPER TO ROIGINAL VALUE 
SWAP A + L fiAQc. 


SAVE CCMPLa^TED + DeORH4?NTED UPPER PT 

DCNT INCREf®(T IP NO OVERFIOW. 
make negative again. 
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USBBaS PACB NO. 43 


B3 S3 



P108T 



WIERPHETIVB 

INSmiCTIONS WHOSE EXECUTION CONSISTS OP PRINCIPALLY CALLINO St^BOUTINES. 

1089 

US' 

IT 

WST 1118 

T541 

0 T0S6 

0 

DMPl 

1C 

CMPSUB 

DMp wsnwcriCN. 

1090 

RBP 

22 

lAST 1115 

T542 

1 6030 

0 


TCP 

CANZIO 


1091 

HEP 

18 

last 1119 

T543 

0 T056 

0 

DMPR 

IC 

DMPSUB 


1092 

REP 

1 


T544 

0 T106 

X 


IC 

RONDSUB +1 

tCCA) = +0>. 

1093 

RES' 

23 

lAST 1119 

TS45 

1 6030 

0 


TCP 

GMNZIO 


1094 




TS46 

0 0006 

1 

DIV 

Exiaro 



1095 

REP 

62 

LAST HIT 

T54T 

5 0116 

1 


INDEX 

ADOmD 

E«VE DIViDBro INTO BUP. 

1098 




T550 

3 0001 

0 


DCA 

0 


109T 

REP 

2 

LAST 1086 

T551 

1 T556 

1 


TCP 

Env *4 


.1098 




T552 

0 0006 

i 

axK 

ExiB© 


MCVB DIVISOR INTO MPAC SAVING MPAC, THE 

1099 

REP 

63 

LAST 1119 

T553 

5 0116 

1 


INDEX 

addrhd 

DIVIDEND, IN BuP. 

1100 




T5S4 

3 0001 

0 


DCA 

0 


1101 

REP 

415 

LAST 1118 

T555 

52 155 

1 


DXCH 

MPAC 


1102 

REP 

53 

LAST 1108 

T558 

52 131 

0 

♦4 

DXCH 

BUP 


1103 

REP 

218 

LAST 1113 

T55T 

3 4T14 

1 


CAP 

ZERO 

DIVIDE ROUTINES IN BANK 0. 

1104 

REP 

20 

LAST 1099 

T560 

54 004 

1 


TS 

FEWrtc 


1105 

REP 

1 


T561 

1 2353 

1 


TCP 

DtV/BDCV 


1108 

REP 

64 

LAST 1119 

T562 

3 0116 

1 

awo 

CA 

ADDBWD 

HIST set to WOfSC area, or EBANK TROUBLE. 

HOT 

REP 

12 

LAST 1096 

T563 

54 166 

1 


TS 

PUSHLOC 


1108 

REP 

1 


T584 

1 6032 

1 


TCP 

NOIBNKS* 

NO PRANK SWITCH REQUIRED. 

1109 

HEP 

219 

LAST 1119 

T565 

3 4T14 

1 

TSLC 

CAP 

ZERO 

ailPTINO ROUTINES LOCATED IN BANK 00. 

1110 

REP 

21 

LAST 1119 

T566 

54 004 

1 


TS 

PRANK 


nil 

REP 

1 


T56T 

1 21T2 

0 


TCP 

TSLC2 


1112 

REP 

T 

LAST 10T8 

T5T0 

3 6043 

0 

OaLIPT 

CAP 

LCWt 

U®D AS MAaC at GENSHPT. this PROCESSES 

1113 

REP 

22 

LAST 1119 

T5T1 

54 004 

1 


TS 

frank 

ANY SHIPT INSTRUCTION (EXCEPT TSLC) WITH 

1114 

HEP 

1 


T5T2 

1 2214 

0 


TCP 

GBfSRIPT 

AN ADDRESS (ROUTINES IN BANK 0). 




W" A3S»«£ revision 249 OP AOC PBOORAM CQUMSUS By NASA 2021111-041 
L IWIERPHBIEH 


PHIS 



THE PQUXMINO IS THE PBDUnUE TO V/SC. 

IP THE PBBsarr 

RlllT 

AM) CAU^S THE V/SC ROOTINB IN BANK 0. 

IP THE pREsacT wre is sc 

R1119 

THE SCALAR IN bfi>AC 

IN BUP BEPOES CALLINO THE V/SC ROUTINE IN BA 

1120 

REP 

IT 

lAST 1115 

T5T3 

10 163 1 

V/SC 

CCS 

HODS 

1121 

REP 

1 


T5T4 

1 T605 1 


TCP 

DV/SC 

1122 

REP 

2 

last 1120 

T5T5 

1 T60S 1 


TCP 

DV/SC 

1123 




T5T8 

0 0006 1 

w/sc 

extb© 


1124 

REP 

65 

last 1119 

T5TT 

5 0118 1 


INDEX 

ADOfflID 

1125 




T800 

3 0001 0 


DCA 

0 

1120 

REP 

54 

last 1119 

T601 

52 131 0 

V/SCi 

DXCH 

BuP 

112T 

REP 

220 

last 1119 

T602 

3 4T14 1 


CAP 

2ER0 

1128 

REP 

23 

last 1119 

T603 

54 004 1 


TS 

PBANK 

1129 

REP 

1 


T604 

1 2054 0 


TCP 

V/SC2 

1130 




T60S 

0 0006 1 

DV/SC 

Extend 


1131 

REP 

66 

last 1120 

T600 

5 0116 1 


INDEX 

addotd 

1132 




T60T 

3 0003 1 


DCA 

2 

1133 

REF 416 

last 1119 

T610 

52 160 1 


DxCM 

MPAC *3 

1134 




T811 

0 0006 1 


EXTEND 


1135 

REP 

67 

last 1120 

T612 

5 0116 1 


INDEX 

ADOiMO 

1136 




T813 

3 0005 1 


DCA 

4 

113T 

REP 417 

last 1120 

T614 

52 162 0 


DXCM 

MPAC *5 

1138 

REP 

135 

last 1094 

T615 

4 4T12 0 


cs 

CNE 

1139 

REP 

18 

LAST 1120 

T616 

54 163 1 


TS 

MODE 

1140 




T61T 

0 0006 1 


EXTBO 


1141 

REP 

68 

last 1120 

T620 

5 0116 1 


INDEX 

ADOiWD 

1142 




T621 

3 0001 0 


DCA 

0 

1143 

REP 

418 

LAST 1120 

T622 

52 155 1 


DxCM 

MPAC 

1144 

REP 

1 


T623 

1 T601 0 


TCP 

V/SCl 


20*35 OCT. 28,1960 SAIRAP .OOT PAOB 1120 
USBIUS PAGE NO. 44 B3 S3 


«VB vector into MPAC. 


IN Bom CAffis, vector is no» in mpac and 

SCALAR IN BUP. 


CHANGE MODE TO VECTOR. 


FINISH PROLOGUE AT COlWON SECTION. 







L i m B HW BiBR 

ni 45 SIGN AM) 0(MPLa«4T INSTRUCTICNS. 


20’35 OCT. 28,1988 SATHAP .DOT PACE 1121 
USBBaS PACE NO. 45 E3 S3 



1146 


69 

LAST 1120 

TO 24 

50 116 

1 

114T 




TS2S 

10 000 

0 

1146 


24 

LAST 1119 

7826 

1 6030 

0 

1149 




7627 

1 7631 

0 

1150 

V 

2 

LAST 1088 

7630 

1 7637 

0 

1151 


TO 

LAST 1121 

7631 

SO 116 

1 

115Z 




7632 

10 001 

1 

1153 

tfP 

25 

LAST 1121 

7633 

1 6030 

0 

1154 

IKP 

26 

LAST 1121 

7634 

1 6030 

0 

1155 

0 EP 

3 

LAST 1121 

7635 

1 7637 

0 

1156 

KP 

2T 

LAST 1121 

7636 

1 6030 

0 

115T 




7637 

0 0006 

1 

1158 

WE 419 

LAST 1120 

7640 

4 0155 

1 

1159 

ter 420 

LAST 1121 

7641 

52 155 

1 

1160 

WE 

19 

LAST 1120 

7642 

10 163 

1 

1161 

lEE 

1 


7643 

1 7654 

0 

1162 

WE 

2 

LAST 1121 

7644 

1 7654 

0 

1163 




7645 

0 0006 

1 

1164 

ter 421 

LAST 1121 

7646 

4 0180 

1 

1165 


422 

LAST 1121 

7647 

52 160 

1 

IIM 




7650 

0 0006 

1 

116T 

WE 423 

LAST 1121 

7651 

4 0162 

0 

1166 

ter 424 

LAST 1121 

7652 

52 162 

0 

1169 

RBP 

28 

LAST 1121 

7653 

1 6030 

0 

IITO 

tee 425 

LAST 1121 

7654 

4 0156 

1 

llTl 

9BE 428 

LAST 1121 

7655 

54 156 

1 

IITZ 

HP 

29 

LAST 1121 

7656 

1 6030 

0 


SIGN 


oca. 


CCMP 


DCCMP 



INDEX 

ADDMD 

CALL CCMP INSIIttX>TICN IP WORD AT X IS 

CCS 

0 

NBOATIVE ncn-zebo. 

TCP 

DANZIO 


TCP 

♦2 


TCP 

CCMP 

DO THE CCMPLOENT. 

INDEX 

AODIMD 


CCS 

1 


TCP 

DANZia 


TCP 

DANZIO 


TCP 

CCMP 


TCP 

DANZIO 


ExTBJD 


CCMPLEMBIT DP WAC IN EVEHT CASE. 

DCs 

MPAC 


DXCH 

MPAC 


CCS 

MCDB 

BIIHBH CCMPLE^E^(T MPAC +3 OB THE REST OP 

TCP 

DCOtP 

THE vector accumulator. 

TCP 

DCCMP 


Extend 


vector complement. 

DCs 

MPAC +3 


DXCH 

MPAC +3 


BxT®ro 



DCS 

MPAC +5 


DxCH 

MPAC *5 


TCP 

DANZIO 


CS 

MPAC +2 


T3 

MPAC +2 


TCP 

DANZlO 
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20’35 OCT. 2B,1»68 SATRAP .OOT PAOB 1122 
US8IUS PACB NO. 48 B3 S3 


SRl 10 SR4 
SRlR TO satR 
a.1 TO SL4 
a-lR TO SL 4 H 


SCALAR SHIPT RIGHT. 

SCALAR SHIFT RIGHT AND R01M> 
SCALAR ailPT LEFT. 

SCALAR ailPT LEPT Ai© ROU© 


VSRl TO VSHs 
VSLi TO VSL« 


VCCTOH SHIFT RIGHT GALWAYS HGXNDS) . 
VBCtGH ailFT LEFT (NEVER RGXNDS) . 


I* FTUXHINO CODra BauiRE AN ADDRESS WHICH MAY BE INDEXED’* 


1. SR 

SCALAR SHIFT RIGHT. 

2. SRR 

scalar SHIFT Riorr Aj© round 

3. a. 

SCALAR ailFr LEFT. 

4. SLR 

SCALAR ailFT LEFT AM) ROUND. 

5. VSR 

vector SIIFT RIGHT. 

0. V9, 

VECTOR SIIFT LEFT. 


MODIPICATICN results in a negative ailFT COUNT. A SIIFT CF THE 
ABSCmiE VALLK CF THE (XUNT IS DCNE IN THE OPPOSITE DIRECTICN. 

00,20tT BANK 00 


REP 2 LAST 1088 TO loao’ 


(Xurr oo/inter 


REP 36 LAST 1113 00,201T 3 6211 0 SIORTT 

REF 29 last 1093 00,2020 T 0020 1 

REP 20 LAST 1061 00,2021 54 021 0 


scalar aiQRT siiPrs coe here, the shift 
CGXNT-l IS NOW IN BITS 2-3 OP CYH. THE 
RCUNDINO bit IS IN BITl AT THIS POINT. 


1195 

REP 

30 

LAST 1122 

1196 

REF 

1 


119T 

1198 

REP 

21 

last 1122 

1199 

REP 

63 

last 1010 

1200 

REP 

13 

last 1111 

1201 

REP 

31 

last 1122 

1202 

REP 

1 


1203 

REP 

4 

last 1113 

1204 

1205 

REF 

14 

last 1122 

1206 

REF 427 

last 1121 

1207 

HEP 428 

LAST 1122 

1208 

1209 

REP 

15 

last 1122 


00,2023 1 2101 1 


CCS CYR 
TCP TSSL 


SEE IP BIGHT OB LEPT SHIFT DESIRED 
SHIPT LEPT. 




00,2024 00024 1 


MPIBWP SETTING FOR SR BEFORE DOV. 


00,2025 SO 021 1 
00,2026 3 46T5 1 


00,2027 54 135 1 


INDEX SR 
CAP BIT 14 

TS MPIFMP 


GHT ailFriNQ BIT. 


00,2030 10 020 1 

00,2031 O 2050 0 


00,2032 1 602T 0 
00,2033 3 0135 0 


00,2034 

00,2035 


■ 0006 1 
T 0156 1 


00.2036 54 156 1 
00,2037 3 0135 0 


00,2040 


CCS CYR 

RIGHTO TC MPACSRND 

TCP NEWMODE 

MPACaiR CA MPTEWP 

Exra© 

MP MPAC *2 

♦3 TS MPAC tZ 

CA ffiTEWP 

Exra© 


Sffi IP A RCU© IS DESIRED. 

YES - ailPT RIGHT AND ROUND. 

SET MODE TO DP GCGA) = 0) . 

DO A TRIPLE PRECISION SIIFT RKHT. 


(EXIT FROM SORT AND ABvAL). 




I 


I 
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mo 

BBP 429 

IAST 1122 

00,2041 

7 0154 

0 


HP 

MPAC 

WIPT MAJOR PART INTO A.L.AND PLACE IN 

1211 

REP 430 

LAST 1123 

00,2042 

52 155 

1 


DXCM 

MPAC 

MPAC,+l. 

1212 

HEP 16 

LAST 1122 

00,2043 

3 0135 

0 


CA 

HPT»1P 


1213 



00,2044 

0 0006 

1 


EXTBO 



1214 

REP 182 

lAST 1118 

00,2045 

7 0001 

1 


HP 

L 

ORIGINAL CIMPAC ♦!). 

1215 

REP 431 

LAST 1123 

00,2046 

20 156 

1 


DAS 

MPAC *1 

GUARANim) NO OVERPLO*. 

1216 

HEP 30 

LAST 1121 

00,2047 

1 6030 

0 


TCP 

DANZIQ 


R1217 


MPAC SHIFT RICHT AND ROND SUBROUTINES. 




1210 

REP 432 

LAST 1123 

00,2050 

3 0156 

0 

MPACSK® CA 

MPAC 4-2 

WE have TO DO ALL THREE MULTIPLIES SINCE 

1219 



00,2051 

0 0006 

1 


BXTBTO 


MPAC +1 AND MPAC ^2 MIGHT HAVE SIGN 

1220 

HEP 17 

LAST 1123 

00,2052 

7 0135 

1 


HP 

MPTH4P 

DISA®E0«NT WITH A ailPT RIGHT OF 1 . 

1221 

REP 433 

lAST 1123 

00,2053 

56 155 

0 


XCH 

MPAC ♦! 


■ 1222 



00,2054 

0 0006 

1 


EXTBTO 



1223 

HH' 18 

LAST 1123 

00,2055 

7 0135 

i 


MP 

MP104P 


1224 

REP 434 

LAST 1123 

00,2056 

56 155 

0 


XCH 

MPAC -n 

trial MINOR PART. 

1225 

HEP 183 

LAST 1123 

00,2057 

6 0001 

0 


AD 

L 


1220 



00,2060 

6 0000 

1 

vani 2 

DOBLE 


(PiNiai vector ccmpcnhnt shift right 

1227 

HEP 435 

LAST 1123 

00,2061 

54 156 

1 


TS 

MPAC +2 

AND ROjND. 

1228 



00,2062 

1 2064 

0 


TCP 

+2 


1229 

REP 436 

LAST 1123 

00,2063 

26 155 

1 


AOS 

MPAC -n 

GUARANTEH) NO OVERFLOW. 

1230 

HEP 221 

LAST 1120 

00,2064 

3 4714 

t 


CAP 

2EHO 


U31 

REP 437 

LAST 1123 

00,2065 

54 156 

1 


TS 

MPAC *2 


1232 

REP 438 

LAST 1123 

00,2066 

56 154 

1 


XCH 

MPAC 

SETTING TO ZERO SO FOLLOWING DAS WORCS. 

1233 



00,2067 

0 0006 

1 


Eiaero 



1234 

HEP 19 

LAST 1123 

00,2070 

7 0135 

1 


MP 

MPTEMP 


1235 

REP 439 

LAST 1123 

00,2071 

20 155 

1 


DAS 

MPAC 

AGAIN NO overflow. 

1230 

HEP 257 

LAST 1118 

00,2072 

0 0002 

0 


TC 

0 


1237 

REP 20 

LAST 1123 

00,2073 

3 0135 

0 

vaiBRND 

CA 

MPTE4P 

ENTRy TO ailPT RIGHT AND ROUND MPAC WHEN 

1238 



00,2074 

0 0006 

1 


Extend 


MPAC CONTAINS A VECTOR CCMPCNENT. 

1239 

REP 440 

LAST 1123 

00,2075 

7 0155 

1 


MP 

MPAC +1 


1240 

REP 441 

LAST 1123 

00,2076 

54 155 

1 


TS 

MPAC .fi 


1241 

RET 184 

LAST 1123 

00,2077 

56 001 

0 


XCM 

L 


1242 

REP 1 


00,2100 

1 2060 

1 


TCP 

VEHR2 

GO ADD CNE IF NECESSARY AND FINISH. 


L 
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20’35 OCT. 28,1968 SATRAP .OOT PAGE 1124 


USBRoS PAOB NO. 48 


*3 S3 


P1243 


mn'iNB PQR smtr scalar slipt left (and myss rojnd) 


. 1244 

ser 

22 

last 1122 

1245 

REP 

21 

LAST 1123 

1240 

124T 

REP 

442 

last 1123 

1248 

REP 

443 

last 1124 

1249 

BBF 

444 

LAST 1124 

1250 

RB' 

445 

last 1124 

1251 

1252 

REP 

440 

last 1124 

1253 

Ai254 

REP 

4 

last 1108 

1255 

REP 

22 

last 1124 

1258 

REP 

2 

last 1122 

125T 

REP 

32 

LAST 1122 

1258 

BO' 

2 

last 1119 

1259 

HEP 

31 

last 1123 

1260 

HH' 

32 

last 1124 


00,2101 

3 0021 

1 

T3SL 

CA 

SR 

00,2102 

54 135 

1 

♦1 

TS 

)«H4P 

00,2103 

0 0006 

1 

♦2 

EXTBO 

00,2104 

3 0156 

0 


OCA 

MPAC ♦! 

00,2105 

20 156 

1 


DAS 

MPAC ♦! 

00,2108 

6 0154 

1 


AO 

WAC 

00,2107 

6 0154 

1 


AD 

MPAC 

00,2110 

54 154 

0 


TS 

MPAC 

00,2111 

1 2113 

1 


TCP 

*2 

00,2112 

54 121 

1 


TS 

(VFIND 

00,2113 

10 135 

1 


CCS 

MPTH4P 

00,2114 

1 2102 

1 


TCP 

TSSL +1 

00,2115 

10 020 

1 


CCS 

CYR 

00,2116 

0 7105 

1 

ROUND 

TC 

RDUNDSlP 

00,2117 

1 6030 

0 


ICF 

DANZIO 

00,2120 

1 6030 

0 


TCP 

OANZIO 


GET ailPT CWUMT FOB SR. 


omuf HERE FRCM SL FOR SCALARS. 
WIFTINO LEFT CKE PLACE AT A TI^E IS 
FASTER than DOING THE WHOLE ailFT WITH 
HJLTIPLIES ASSLMINO THAT FBEOUENCY OP 
SHIFT CCUNTS OCBS DOWN RAPIDLY AS A 
PUNGTICH OP THEIR mCNITlCE. 

(VERFLOW. (LEAVES OVERFLOW-CORRECIFD 
result ANYWAY) . 

LOOP CN DECRB-QITED ailFT (XXKT. 


fflB IF ROUND wanted. 

YES - ROUND AND EXIT. 

SL LEAVES A ZERO IN CYH FOR NO HOUND 
NO - EXIT IM«DIATL 





I 
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• A **An9 


P1261 VECTOR ailPrINO BOOTINES. 


1262 

REP 

3 

LAST 726 

00,2121 

3 4716 

0 

aKBTV 

1263 

REP 

33 

LAST 1124 

00,2122 

7 0020 

1 


1264 

REP 

23 

LAST 1124 

00,2123 

54 135 

1 


1265 

REP 

34 

LAST 1125 

00,2124 

10 020 

1 


1266 

REP 

1 


00,2125 

1 2145 

1 

OCT176 

128T 




00,2126 

00176 

1 

1268 

REP 

24 

LAST 1125 

00,2127 

50 135 

0 

VSSR 

1269 

REP 

64 

LAST 1122 

00,2130 

3 4675 

1 


12T0 

REP 

25 

LAST 1125 

00,2131 

54 135 

1 


1271 

REP 

1 


00,2132 

0 2073 

1 


.1272 

REP 

447 

LAST 1124 

00,2133 

52 155 

1 


1273 

REP 

448 

LAST 1125 

00,2134 

52 160 

1 


1274 

HEP 

449 

LAST 1125 

00,2135 

52 155 

1 


1275 

REP 

2 

LAST 1125 

00,2136 

0 2073 

1 


1276 

REP 

450 

LAST 1125 

00,2137 

52 155 

1 


1277 

HEP 

451 

LAST 1125 

00,2140 

52 162 

0 


1278 

REP 

452 

LAST 1125 

00,2141 

52 155 

1 


1279 

REP 

3 

LAST 1125 

00,2142 

0 2073 

1 


1280 

HEP 

1 


00,2143 

1 7367 

0 




CAP 

LOPS 

SAVE 3 BIT ailPT COUNT - 1 WITHOlW 

mask 

CXR 

H3IT1NO cm. 

TS 

MPTB4P 


CCS 

CXR 

SB IP LEFT OB RIGHT SHIFT. 

TCP 

VSSL 

vector shift left. 

OCT 

176 

USED IN PBOCSESSBD SIIFTS WITH - COUNT. 

INDEX 

MPTH4P 

(ENTTtf PR04 SR) . PICK UP SHIFTING BIT. 

CAP 

BIT14 

MPTEMP CCKTAINS THE ailFT COUNT - 1 . 

TS 

HPTBfl* 


TC 

vafflK© 

SHIFT X CCMPCNHIT. 

DXCH 

MPAC 

S«AP X AND Y CCMPGHENTS. 

DXCH 

HPAC +3 


DXCH 

MPAC 


tc 

V9IBHND 

ailPT Y CCMPCNENT. 

DXCH 

MPAC 

SHAP Y AND Z CCMPCNENTS. 

DXCH 

MPAC +5 


DxCH 

MPAC 


TC 

VSHRRND 

WIFT Z CCMPGNENT. 

TCP 

VROWTEX 

RESTORE CCMPCN®)TS TO PROPER PLACES. 
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P 1281 vector aiipr left - dcwe cnb place at a td«. 


20’35 OCT. 28,1968 SATRAP .007 PACE 1126 
USEIUS PACE NO. 50 B3 S3 


REP 28 LAST 1125 


HEP 453 LAST 1125 
REP 454 last 1128 


1288 

REP 

3 

last 1108 

1289 




1290 

REP 455 

last 1126 

1291 

1292 

1293 

fep 

456 

last 1126 

1294 

RBP 

4 

LAST 1116 

1295 

1296 

RBP 

457 

last 1126 

1297 

1298 

1299 

BSP 

458 

last 1126 

1300 

RSP 

4 

LAST 1117 

1301 

REP 

27 

last 1126 

1302 

REP 

2 

last 1125 

1303 

REP 

33 

last 1124 


00,2145 

00,2146 

00,2147 

00,2150 

00,2151 


00,2154 

00,2155 

00,2156 

00,2157 

00,2160 


00,2161 

00,2162 

00,2163 

00,2164 

00,2165 

00,2166 


54 135 1 -1 

TS 

MPTB4P 

0 0006 1 VSSL 

Exraro 

3 0155 0 

DCA 

MPAC 

20 155 1 

DAS 

MPAC 

0 0006 1 

exth® 

1 2153 0 

BzP 

♦2 

0 6766 0 

TC 

CVBRPLOir 

0 0008 1 

EJOB® 

3 0160 0 

DCA 

MPAC *3 

20 160 1 

DAS 

MPAC *3 

0 0006 1 

Exiero 

1 2161 1 

BzP 

*2 

0 6763 0 

TC 

omsPuiY 

0 0006 1 

EXTBTD 


3 0162 1 

DCA 

MPAC ^5 

20 162 0 

DAS 

MPAC +5 

0 0006 1 

EXTB® 

1 2187 1 

B2F 

*2 

0 6760 0 

TC 

CVBRFUrz 

10 135 1 

CCS 

MP1E4P 

1 2144 0 

TCP 

VSSL -1 

1 6030 0 

TCP 

danzio 


WIPTINQ LOOP. 


LOOP (K DeCRBHEfJTH) SHIFT COUNTER. 
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L WlBRPHBlER USEB«S PAGE NO. 51 *3 S3 

P1304 TSLC - TBIPLE SHIFT LEFT AND COUNT. ffllFTS »AC LEFT UNTIL (BffiATEB THAN .5 IN MAGNIHEE, lEAVINO 

R1306 tW O0Wta«NT OP THE NIP«EH OP SIIPTS RBOUIBED IN X. 


1307 

REP 

26 

LAST 

1126 

00,2172 

1308 

REP 

2 

LAST 

1111 

00,2173 

1309 





00,2174 

1310 

REP 

1 



00,2175 

1311 

REP 

8 

LAST 

683 

00,2176 

1312 

HEP 

459 

LAST 

1126 

00,2177 

1313 

HEP 

1 



00,2200 

1314 

HEP 

29 

LAST 

1127 

00,2201 

1315 





00,2202 

1316 

REP 460 

LAST 

1127 

00,2203 

1317 

REP 461 

LAST 

1127 

00,2204 

1318 

REP 462 

LAST 

1127 

00,2205 

1319 

REP 463 

LAST 

1127 

00,2206 

1320 





00,2207 

1321 





00,2210 

1322 

HEP 

1 



00,2211 

1323 

RHP 

30 

LAST 

1127 

00,2212 

1324 

REP 

1 



00,2213 


54 135 

1 

TSLC2 

TS 

MPTBIP 

0 6672 

1 


IC 

BRANCH 

1 2176 

1 


TCP 

♦2 

1 2212 

0 


TCP 

MITSLC 

0 7226 

0 


ic 

TPA(5aE 

3 0154 

1 


CA 

MPAC 

1 2207 

1 


TCP 

TSLCTEST 

24 135 

0 

TSLCUXIP 

inch 

HPTH>IP 

0 0006 

1 


Exra© 


3 0156 

0 


DCA 

MPAC 

20 156 

1 


ms 

MPAC +1 

6 0154 

1 


AD 

MPAC 

26 154 

0 


ADS 

MPAC 

6 0000 

1 

TSLCIEST 

double 


54 000 

0 


(vac 


1 2201 

1 


TCP 

tslcloop 

4 0135 

1 

BIDTSLC 

CS 

MPTBMP 

1 6572 

0 


TCP 

STORE! 


START By ZEROIWl ailFT COUNT (IN A NCW) . 
EXIT WITH NO SIIFTINO IP AROlMQn' ZERO. 

STORES ZERO SHIFT COIKT IN THIS CASE. 

MAX CAUSE UPSHIFT CP (J® EXIHA PLACE. 

BEGIN NORMALIZATICN LOOP. 

INCHa«(T SHIFT COUNTER. 

SEE IF (ANOnffiR) SIIPT IS REQUIRED. 

YES - INCREMENT COUNT AW) ailPT AGAIN. 

STORE SHIFT CCUNT AND REmiN TO DANZIO. 



li 




ASaaCLB BBVISICK 249 OP AOC PHOSMM COLOSSUS BY KASA 2021111-041 
mBRPBBIER 


P1325 

K13ZT 

R1328 

111329 

111331 

■1332 

■1333 

■1334 

■133S 

■1338 

133T 

1338 

1339 

1340 

1341 

1342 

1343 

1344 

1345 
1348 
134T 

1348 

1349 

1350 

1351 

1352 

1353 

1354 


20*35 OCT. 28,1988 SATRAP .007 PAOB 1128 
U8BR.S PAOB NO. 52 Ba S3 


1* ^Ss®" ™ INSHM^KHS SB. SRB. SL, A» SUl. 


BITS 1-7 

bit 8 

bit 9 

bit 10 

bits 11-13 
bit 14 
bit 15 


SHIFT CIXKr ( S10AODRBSS) LBSS THAN 135 DECIMAL 

psano Slot bit (detects (Jiange in sign in indexed aiiPTS) 

0 Pm LEFT SHIFT, AND 1 FOB RIGHT ailFT 

1 FOR TERMINAL ROUND CN SCALAR SHIFTS. 0 OTHERWISE 

0 . 

1 . 

0 . 


HB ABOVE ENCODino IS IXNB BY THE YUL SYSTEM. 


71 
REF 299 
RSF 1 

HEP 33 
REF 72 
HEF 300 
3 
34 


REF 


REF 

REF 

HEF 


HEF 

HEF 

REF 


31 

26 

73 

1 

301 

1 

1 

1 


IAST 1121 

last 1118 

LAST 701 

last 1128 
last 1128 

last 1124 

last 1128 

last 1127 
last 1075 

last 1128 

last 1128 


00.2214 

00,2215 

00.2216 

00,2217 

00,2220 

00.2221 

00,2222 

00,2223 

00,2224 

00,2225 

00,2226 

00,2227 

00,2230 

00,2231 

00,2232 

00,2233 

00,2234 

00,2235 


7 0116 
10 000 


3 4701 
7 0116 
10 000 

0 7105 

1 6030 

54 135 
3 4703 
0 0006 
7 0116 
7 6214 
50 000 
1 2233 
1 2332 
1 2342 
1 2336 


0 

gboiift wsk 

ADDRWD 

(BT SHIFT (MUNT, TESTINO FOR ZERO. 

0 

(XJs 

A 

(ARRIVES WITH C(A» = LOW7). 

0 

tcf 

GB4SHFT2 

IF NCN-ffiRO, PIKXIEED WITH DEC5ia®(TH) ( 

0 

CAF 

BITlO 

2»ID ailFT CCINT. NO ailPTS NEEDED BUT 

0 

M*SK 

AODIM) 

WE MKHT HAVE TO ROND MPAC CN SLR AND 

0 

(XIS 

A 

SRR (SCALAR (NLY). 

1 

TC 

RCUNDSUB 


0 

TCF 

DANZIO 


1 

GEN9IFT2 TS 

MPTFMP 

DBCiaMNlBD ailFT (WUNT TO MFTtMP. 

1 

CAF 

bits 

TEST SBANINO OF LOW SEVEN BIT COUNT IN 

1 

Exra® 


MPTFMP NOW. 

0 

MP 

adorwo 


1 

MASK 

LCW2 

ajMPS CN SHIFT DIBECtICN (BITS) AND 

1 

INDEX 

A 


0 

TCP 

♦1 

ORIGINAL SHIFT DIHECTICN (BIT 9). 

0 

TCF 

RIGHT- 

negative SHIFT COUNT FOR SL OR SLR 

1 

TCF 

LEFT 

SL OB SLR. 

1 

TCP 

LEFT- 

IBGATIVB ailFT CXXWT WITH SH OR SRR. 
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miRPidBR 



P13S5 

13S« 

13ST 

1358 

1359 

1380 

1381 

1382 

1383 

1384 

1385 
.1388 

138T 

1388 

1389 
1378 

A13T1 

13T2 

13T3 

13T4 

13T5 

13TS 

UTT 

13T8 

13T9 

1380 

1381 

1382 

1383 

1384 

1385 
1388 
138T 

1388 

1389 


(XMBRAL afIPT RIOfT. 


25 


485 

1 

' 468 


467 


mp 


186 


LAST 1121 

00,2238 

10 163 1 

BIGHT 

CCS 

MODE 


00,2237 

1 2277 0 


TCP 

DDISCR 

LAST 1129 

00,2240 

1 2277 0 


TCP 

GEMSCR 

LAST 1128 

00,2241 

3 0135 0 


CA 

MPIEMP 


00,2242 

6 3730 0 

VBIGHT2 

AD 

NEGlZ 


00,2243 

0 0006 1 


EXTEND 



00,2244 

6 2127 1 


BZFF 

VSSR 

LAST 1118 

00,2245 

6 7716 0 


AD 

NEGGNE 

LAST 1129 

00,2248 

54 135 1 


TS 

MPIBIP 

LAST 1123 

00,2247 

3 4714 1 


CAP 

^RO 

LAST 1123 

00,2250 

54 001 1 


TS 

L 

LAST 1127 

00,2251 

56 154 1 


XtH 

MPAC 

LAST 1129 

00,2252 

56 155 0 


XCH 

MPAC +1 


00,2253 

0 2272 1 


TC 

®iRauND 

LAST 1129 

00,2254 

20 155 1 


IMS 

MPAC 

LAST 1129 

00,2255 

56 157 1 


XCH 

MPAC +3 

LAST 1129 

00,2256 

56 160 0 


XQI 

MPAC +4 

LAST 1129 

00,2257 

0 2272 1 


1C 

ffiTRCUND 

LAST 1129 

00,2260 

20 160 1 


DAS 

MPAC +3 

LAST 1129 

00,2281 

56 161 1 


XQI 

MPAC +5 

LAST 1129 

00,2282 

56 162 1 


XCH 

MPAC +8 

LAST 1129 

00,2263 

0 2272 1 


1C 

SETRGUND 

LAST 1129 

00,2264 

20 162 0 


DAS 

MPAC +5 

LAST 1129 

00,2265 

10 135 1 


CCS 

MPIEMP 

LAST 1129 

00,2266 

54 135 1 


TS 

MPIFMP 


00,2287 

1 2242 0 


ICP 

VBIGHTZ 


00,2270 

04604 1 

biaslo 

DEC 

.2974 B-1 

LAST 1128 

00,2271 

1 6030 0 


ICP 

DANZIG 


00,2272 

6 0000 1 

®TBCUND DOUBLE 

LAST 1129 

00,2273 

54 156 1 


TS 

MPAC +2 

LAST 1129 

00,2274 

3 4714 1 


CAF 

ZEEIO 

LAST 1129 

00,2275 

56 001 0 


XCH 

L 

LAST 1123 

00,2276 

0 0002 0 


TC 

0 



US(I«S PAGE NO. S3 B3 S3 


SEE IP VBCTOa OR SCALAR. 


®B IP SHIFT COUNT LESS THAN 140. 


IP SO, BRANCH AND SHIFT IFMaJIAlELY. 

IP NOT, REDUCE MPTH4P BY A TOTAL OP 14, 
AND DO A WIPT BIGHT Ai® BOUND BY 14. 
THE ROUt® AT THIS STAGE MAY INTRORX® A 
CNE bit ERROR IN A SHIFT BIGHT ISD. 


X CGMPCNaiT NOW SHIFIED, SO MAKE UP THE 
ROUNDING quantity (Q IN A AND 0 OR ♦-! 
IN L). 

REPEAT THE ABCVE PROCESS FOR Y AND Z. 


NO Ol/EHFLOW ON THESE ADDS. 


SEE IP DGHE, DOING PINAL DeCBE>®)T. 

SORT CONSTANT 

makes up rounding quantity from arriving 

C(A). L IS ZERO INITIALLY. 

REIUHN AND DO THE DAS, BESETTING L TO 0. 



L 



ASSBBLE REVISKW 249 OP AOC PBOffiWM COLOSSUS BY NASA 202U11-041 
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^^39® WOtSSS SR AND SHH TOR SCALARS. 


1391 

REP 

38 

WST 1129 

00,2277 

1392 

REP 

2 

IAST 1129 

00,2300 

1393 




00,2301 

1394 

REP 

1 


00,2302 

1395 

REP 

26 

last 1129 

00,2303 

1398 

REP 

37 

last 1130 

00,2304 

139T 

REP 

224 

l^ST 1129 

00,2305 

1398 

REP 474 

last 1129 

00,2308 

1399 

REP 

475 

l^ST 1130 

00,2307 

1400 

REP 

476 

last 1130 

00,2310 

1401 

REP 

38 

WST 1130 

00,2311 

1402 

REP 

39 

last 1130 

00,2312 

1403 

HEP 

3 

last 1129 

00,2313 

1404 




00,2314 

1405 

REP 

34 

last 1128 

00,2315 

1408 

REP 

74 

last 1128 

00,2316 

1407 

REP 

302 

I^ST 1128 

00,2317 

1408 

REP 

4 

last 1128 

00,2320 

1409 

REP 

36 

last 1129 

00,2321 

1410 

REP 

40 

last 1130 

00,2322 

1411 

REP 

65 

last 1125 

00,2323 

1412 

REP 

41 

last 1130 

00,2324 

1413 

REP 

35 

last 1130 

00,2325 

1414 

REP 

75 

last 1130 

00,2326 

1415 

REP 303 

last 1130 

00,2327 

1418 

REP 

1 


00,2330 

1417 

REP 

1 


00,2331 


3 0135 0 

GBISCr 

CA 

MPTB4P 

6 3730 0 

♦1 

AO 

NEO12 

0 0006 1 


EXTEND 

6 2322 0 


B2HP 

dosshft 

6 7716 0 

♦4 

AO 

NBQCNB 

54 135 1 


TS 

MFiefl* 

3 4714 1 


CAP 

2»RO 

56 154 1 


XCH 

MPAC 

56 155 0 


XCH 

MPAC *1 

54 156 1 


TS 

MPAC +2 

10 135 1 


CCS 

MPTB4P 

54 135 1 


TS 

MPTB4P 

0 2300 0 


IC 

GBJSCr +1 

22650 1 

SLOPEHI 

DEC 

.5884 

3 4701 0 


CAP 

BlTlO 

7 0116 0 


MAac 

ADDBi® 

10 000 0 


CCS 

A 

0 7105 1 


TC 

ROUNDSUB 

1 6030 0 


TCP 

DANZIO 

50 1 35 0 

DOSaiFT 

INDEX 

MPIBMP 

3 4675 1 


CAP 

BIT14 

54 135 1 


TS 

MPTB4P 

3 4701 0 


CAP 

BITio 

7 0116 0 


MASK 

adohwd 

10 000 0 


CCS 

A 

1 2031 0 


TCP 

RICHTR 

1 2033 1 


TCP 

MPACSHR 


20*35 OCT. 28,1988 SAISAP .qoT PAOS 1130 
UsRKoiS page 'NO. 54 B 3 S3 


SHE IP THE ORIOINAL ffllPT COUNT WAS mao 
THAN 14D. 

DO THE SHIFT IM40DIATELY IP SO. 

IP NOT, DECMmiT SHIFT COUNT BY 14D AND 
SHIFT MPAC RIGHT 14 PLACES. 


SEE IP PINIaiH), DO PINAL DECREMENT. 


SORT CCNSWNT. 

PIVIaiED WITH SHIFT. ^ IP ROUND 
WANTED. 


DO SO AND/OR EXIT. 
PKV UP SflFTim bit. 


®E IP terminal round desired. 


YES. 

JUST ailFT RIGHT. 
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P1418 



PHOCES3 THE HKHT- (SL(H) WITH A NEMTIVE COUNT), LEPT-, 

AND LEFT OPTICNS. 

1420 

HEP* 

42 

LAST 

1130 

00,2332 

4 0135 

1 

BICHT- 

Cs 

MPTB4P 

OBT ABSOUriE VALUE - 1 OP SHIFT COUNT 

1421 

HEP 

1 



00,2333 

6 2126 

0 


AD 

OCTTT6 

UCEBSTANDINO that bits (PSEUDO-SICW) 

1422 

hep 

43 

LAST 

1131 

00,2334 

54 135 

1 


TS 

MPTBfl> 

WAS 1 INITIALUY. 

1423 

hep- 

1 



00,2335 

1 2236 

0 


TCP 

BICHT 

DO HOEMIL SHIFT BICHT. 

1424 

hep 

2 

LAST 

1131 

00,2336 

4 2126 

1 

LEPT- 

Cs 

OCT176 

SA)* PBOUXXJE TO LEFT FOB INDEXED BIGHT 

1425 

HEP 

44 

LAST 

1131 

00,2337 

6 0135 

0 


AD 

MPTBfl> 

WIPTS WHOSE NET SHIFT COUNT IS NEGATIVE 

1426 





00,2340 

4 0000 

0 


CCM 



1427 

HEP 

45 

LAST 

1131 

00,2341 

54 135 

1 


TS 

MPTBIP 


1428 

HEP 

21 

LAST 

1129 

00,2342 

10 163 

1 

LEPT 

CCS 

MODE 

SINCE LEFT SHIFTING IS SCNE CNE PLACE AT 

1429 

HEP 

1 



00,2343 

1 2346 

0 


TCP 

CBISCL 

A T»e, NO CCMPABISCN WITH 14 NEED BE 

1430 

HEP 

2 

LAST 

1131 

00,2344 

1 2346 

0 


TCP 

GEMSCL 

DOB. FOB SCALABS, SEE IP TEBMINAL BOUND 

1431 

BEP 

3 

LAST 

1126 

00,2345 

1 2145 

1 


TCP 

VSSL 

OesiBED. FOB VECTOBS, SIIFT IFMEDIATELY. 

1432 

HEP 

76 

LAST 

1130 

00,2346 

4 0116 

0 

O&ISCL 

CS 

AODBBD 

PITT BOHDING BIT (BIT 10 OP ADDBSKD) INTO 

1433 





00,2347 

0 0006 

1 


EXTB® 


bit 15 CP CYB WHBHE THE HOUNDING BIT OP 

1434 

BEP 

43 

LAST 

1034 

00,2350 

7 4705 

0 


HP 

bits 

A aiOErr siift left would be 

1435 

BEP 

35 

LAST 

1125 

00,2351 

54 020 

1 


TS 

CYB 


1436 

BEP 

3 

LAST 

1124 

00,2352 

1 2103 

0 


TCP 

TSSL +2 

DO HB WIFT. 



Ill 
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R1439 Am WB DIVI^ INSIWX>ri(»S, MV AND BDOv, AHB BXEClnH) HERB. AT THIS POINT. THE DIVIDB® IS 


IN MPAC 


1440 

1441 

1442 

1443 

1444 

1445 
1448 
144T 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 
145T 

1458 

1459 
1480 
1461 

1482 

1463 

1464 

1465 

1466 
146T 

1468 

1469 
14T0 
14T1 
14T2 
14T3 
14T4 

14T5 

14T6 

14TT 

1478 


138 

1 

1 

1 

55 

1 


last 1120 


tASr 1120 


’ 4TT LAST 1130 
t LAST 1127 

478 LAST 1132 
1 

2 LAST 1132 


' 56 
’ 57 
’ 479 
’ 480 
‘ 58 
1 


last 1132 
last 1132 

LAST 1132 
last 1132 
LAST 1132 


481 LAST 1132 


REP 2 
US' 30 
BBP 482 
BBP 1 
BHP 137 
RBP 5 
REP 37 

sap 3 

REP 59 
REP 1 


80 

61 

4 


LAST 1132 

last 1111 

LAST 1132 

last 1132 
last 1124 

last 1130 

last 1132 
LAST 1132 


last 1132 
last 1132 
last 1132 


00,2353 

4 4712 0 

DDV/BDOV Cs 

CNE 

00,2354 

54 136 1 

TS 

DVSICN 

00,2355 

54 137 0 

TS 

OvNOWCt 

00,2356 

54 140 0 

TS 

MAXDVSW 

.00,2357 

10 130 1 

CCS 

BUP 

00,2360 

1 2516 0 

TCP 

BUPPOS 

00,2361 

1 2363 1 

TCP 

♦2 

00,2362 

1 2531 0 

TCP 

BuPNBO 

00,2363 

54 156 1 

BUP®R0 TS 

MPAC +2 

00,2364 

0 7226 0 

TC 

TPACaiEB 

00,2365 

10 154 0 

CCS 

MPAC 

00,2386 

1 2414 0 

TCP 

<VF+ 

00,2387 

1 2371 1 

TCP 

*2 

00,2370 

1 2413 1 

TCP 

OvPt -1 

00,2371 

56 131 1 

XCH 

BUP n 

00,2372 

56 130 0 

XCH 

BUP 

00,2373 

56 155 0 

XCH 

MPAC ♦! 

00,2374 

56 154 1 

XCH 

MPAC 

00,2375 

10 130 1 

CCS 

BUF 

00,2376 

1 2422 0 

TCP 

BUPt 

00,2377 

1 2401 1 

TCP 

♦2 

00,2400 

1 2416 1 

TCP 

BuP_ 


00,2401 
00,2402 
00,2403 
00,2404 
00 , 2405 
00,2406 
00,2407 
00,2410 
00,2411 
00,2412 
00,2413 
00,2414 
00,2415 


4 0154 
0 0006 
6 2405 
24 136 
3 4672 
54 154 
0 2630 

3 4712 
54 121 

0 6030 
24 136 

4 0131 

1 240 2 


CS 


MPAC 


SGMVIVF EXTEND 

Bj54P *2 
INCR 
CAP 
TS 
TC 
CAP 
TS 
TC 
INCR 
CS 
TCP 


IMVP 


-1 

(VP,. 


IVSIGN 

POSMAX 

MPAC 

PINALDX *3 
(HE 

(X(PIND 

DANZIG 

IVSIC3N 

DJP 

SGWrVCVP 


00,2416 0 0006 1 BUP- 

00,2417 4 0131 0 

00,2420 52 131 0 

00,2421 24 136 0 


extend 
DC s BUP 
DXCM BuP 
INCR DVSICN 


WITIALIzATICN. 

♦-1 FOR positive QUOTieiT - -0 FOR NEO 
DIVIDB© NOBMALIzATICN COUNT. 

NEAR-CNE DIVIDE FLAG. 

FORCE MP positive WITH THE MAJOR PART 
NCN-ZEHO. 


®HO THIS. 

force sice AGRBa«4T BEFORE OVERFLOW 

TEST TO Sffi IP MPAC NCN-ZERO. (TOO BIO) 
major PART OP DIVIDaro IS POSITIVE NCN-0 

major part op DIVIDBTO IS NEO. NCN-ZERO 

WIPT DIVIDB© AND DIVISOR LEFT 14. 


TRY AGAIN CN P0B>ER MINOR PART. 
(VERFLOw CN ZERO DIVISOR. 

SI(» OP MPAC DETERMINES SIGN OP RESULT. 


NBOMAx in MPAC PERHAPS. 

CN DIVISION OVERPIXIW OP ANY SORT, SET 
»T DP MPAC TO +-POSMAX. 

set cx^erflow indicator and Exit. 


LOAD LOWER ORDER PART CP DIVISOR. 
get sign OF RESULT. 

IP ftjp IS NEGATIVE, CCMPIFI'IENT IT AND 
MAINTAIN DVSIOI FOR PINAL aXJTIENT SICJi. 

NOW -0. 
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I 


I 



IMIBRPREIER 



14T9 

REP 483 

LAST 

1132 

00,2422 

1480 

REP 

1 



00,2423 

1481 





00,2424 

1482 

HEP 

1 



00,2425 

1483 

REP 484 

LAST 

1133 

00,2426 

1484 

REP 

2 

LAST 

1133 

00,2427 

1485 

REP 

38 

lAST 

1132 

00,2430 

1486 

REP 

2 

LAST 

1133 

00,2431 

148T 

REP 

39 

LAST 

1133 

00,2432 

1488 





00,2433 

1489 

REP 

485 

LAST 

1133 

00,2434 

1490 

HEP 

486 

LAST 

1133 

00,2435 

1491 

REP 

5 

LAST 

1132 

00,2436 


10 154 

0 

BlE* 

OCs 

WAC 

1 243T 

1 


TCP 

W>AC«. 

1 2426 

1 


TCE 

♦2 

1 2433 

0 


7C!P 

M>AC- 

10 155 

1 


OCS 

MPAC ♦! 

1 2437 

1 


TCP 

HPAC4. 

1 6030 

0 


TCP 

DANZIO 

1 2433 

0 


TCP 

WAC- 

1 6030 

0 


TCP 

DANZIB 

0 0006 

1 

MPAC- 

EXTB® 


4 0155 

1 


DCS 

MPAC 

52 155 

1 


DXCM 

MPAC 

24 136 

0 


INCH 

DVSIGM 


USBIUS PAGE HO. 5T *3 S3 

FORCE MPAC POSITIVE, CHEQcIHO FOR ZERO 
DIVIDEND IN HB PROCESS. 

EXIT I»®DIATELY (W ZERO DIVIDEND. 

FORCE MPAC POSITIVE AS BU' IN BOE-. 

NON ♦! OR -0. 
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1492 

1493 


RH' 48T 
HEP 27 


I^ST 1133 
I>*Sr 1130 


1494 

REP 

62 

IAST 1132 

1495 

REP 

304 

last 1130 

1496 

1497 

REP 

1 

1498 

1499 

1500 

RBP 

11 

LAST 1118 

1501 

REP 

488 

last 1134 

1502 

HEP 489 

last 1134 

1503 

REP 

225 

last 1130 

1504 

REP 

31 

last 1132 

1505 

REP 

490 

last 1134 

1506 

1507 

HEP 

12 

last 1134 

1508 

REP 

63 

last 1134 

1509 

REP 

64 

last 1134 

1510 

HEP 

226 

last 1134 

1511 

REP 

32 

last 1134 

1512 

REP 

65 

last 1134 

1513 

REP 491 

last 1134 

1514, 

REF 

66 

LAST 1134 

1515 

REP 305 

last 1134 

1516 

REP 

2 

last 1134 

1517 

REP 

13 

last 1114 

1518 

REP 

1 


1519 


2 

last 1132 

1520 

REF 492 

last 1134 

1521 

1522 

REP 

67 

last 1134 

1523 

REP 

2 

last 1134 

1524 

REP 

3 

last 1134 


00,2437 

00,2440 

00,2441 

00,2442 

00,2443 

00,2444 

00,2445 

00,2446 

00,2447 

00,2450 

00,2451 

00,2452 

00,2453 

00,2454 

00,2455 

00,2458 

00,2457 

00,2460 

00,2461 

00,2462 

00,2463 

00,2464 

00,2465 

00,2466 

00,2487 

00,2470 

00,2471 

00,2472 

00,2473 

00,2474 

00,2475 

00,2476 

00,2477 


4 0154 0 
6 7716 0 
6 0130 0 
10 000 0 
1 2505 1 
80001 0 

1 2446 1 
3 4675 1 
6 0000 1 
6 0155 0 
54 155 1 
3 4714 1 
6 4672 0 
26 154 0 


MPAC«. 


- 1 / 2*2 


CS 

AD 

AO 

CCS 

TCP 

OCT 


MPAC 

NECXNE 

flUP 

A 

DVNOm 

60001 


TCP 

CAP 


3 4675 1 
6 0000 1 
6 0131 1 
54 131 0 
3 4714 1 
8 4672 0 
28 130 1 


♦1 

HALP 

double 

AD MPAC *1 

T3 MPAC ♦! 

CAP tEBO 

AO P094AX 

ads MPAC 

CAP HALP 

DOlflLE 


4 0154 0 
6 0130 0 
10 000 0 
1 2505 1 
00133 0 
1 2405 0 


LBUP2 


AO 

TS 

CAP 

AD 

ADS 

CS 

AD 

CCS 

TCP 


BUP *1 
HUP *1 
2BRO 
POS4AX 
HUP 

MPAC 

BuP 

A 

DVNOHM 


ADBBS BuP2 
TCP DvCVP 


54 140 
4 0155 


8 0131 1 


0 0006 
6 2405 
1 2505 


TS 
CS 
AD 

EXTEND 
BZ4P DlrtVP 
TCP DVNCW1 


MAXDVSsr 
MPAC +1 
HUP *1 
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OEQC PQR DIVISION OVBBFlXtt. IP THE 

major part op the dividb® is less than 

THE MAJOR PART OP THE DIVISOR BY AT 
I^AST two, we can PROCEED MEDIATELY 
WlTHOTr NOBMALIzATICN PHODOCINO a DVMAx 
USED IN SQHTSUB. 

IP THE ABO/B DOES NOT HOLD, FORCE SIGN 
AtWEBRENT IN NUMERATOR AND DPNCWINATOR 
TO PACILITATB (X®lPLar AND NEAR-CNB 
CMBCJcINO. 


SAME FOR BUP. 


CHBClc MAGNITLCe OP SIGN-CORRECTED 

operands. 

DIVIDE Qc - WILL NOT BECOe MAxOV CASE. 

DIVISOR NOT LESS THAN DIVIDEND - CVP. 

IP THE MIJOH PARTS OP THE DIVIDEND AND 
DIVISOR ABE EOJAL, A SPECIAL APPRCKIMA- 
TICN IS USED (PROVIDED THE DIVISION IS 
possible, OP COURSE) . 

IP NO OvERPIXW. 






II 
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t52S 





00,2500 

0 0006 

1 

BUPNQEM 

EXTSJ® 


ADO -1 TO AUCBBIT MIBT.OOlKr AND SHII 

152« 

FBF 

2 

lAST 

1132 

00.2501 

24 137 

1 


AUO 

DVNOEMCT 

LEFT CHE PIAOB. 

1527 





00.2502 

0 0006 

1 


BKTB® 



1528 

KHP 

•8 

LAST 

1134 

00,2503 

3 0131 

1 


DCA 

BUF 


1529 

BBF 

•9 

LAST 

1135 

00,2504 

20 131 

0 


OAS 

fiUF 


1530 

HBF 

TO 

LAST 

1135 

00,2505 

3 0130 

0 

DVNOEM 

CA 

BUF 

SEE IF DIVISOR NOiMtLI^ TET. 

1531 





00,2506 

6 0000 

1 


DOUBLE 



1532 





00,250T 

54 000 

0 


(vac 



1533 

BBP 

1 



00,2510 

1 2500 

X 


TCF 

BUPNOIM 

NO - miFT LEFT QB AiO TBX AGAIN. 

1534 

BEF 

493 

LAST 

1134 

00,2511 

52 155 

1 


OXCH 

MPAC 

CALL DIVIDEND NQEMALIZSTKW SEQU©fCE 

1535 

BEF 

3 

LAST 

1135 

00,2512 

SO 137 

1 


INDEX 

DVNOIWCT 

PRIOR TO DOINO Hffi DIVIDE. 

1530 

BEF 

1 



00,2513 

0 2565 

0 


IC 

MAXTEST 


1537 

BEF 

494 

LAST 

1135 

00,2514 

54 156 

1 


T3 

M>AC +2 

RBTUIWS WITH DIVISICM DCNE AND C(A) = 

1538 

BEF 

40 

LAST 

1133 

00,2515 

1 6030 

0 


TCF 

danziq 


1539 

BEF 

300 

LAST 

1134 

00,2516 

10 000 

0 

HUPPOS 

CCS 

A 


1540 

BEF 

2 

LAST 

1132 

00,2517 

1 2422 

0 


TCF 

BUF* 

TO BUF* IF BUF IS GBEATER THAN *1 . 

1541 

BEF 

T1 

LAST 

1135 

00,2520 

4 0131 

0 


CS 

HUP *1 

IF BUF IS *1, FOBCINB SIGN AGREEMENT 

1542 





00,2521 

0 0006 

i 


EXTB® 


MAY CAU® BUF TO BECOC ZERO. 

1543 

BBP 

3 

LAST 

1135 

00,25 22 

6 2422 

1 


BZMF 

BUF* 

BRANCH IF SIGNS AGREE. 

1544 

BBF 

13 

LAST 

1134 

00,25 23 

3 4675 

1 


CA 

HALF 

SIGNS DISAGREE. PCBCB AGHEE«NT. 

1545 





00,2524 

6 0000 

1 

♦8 

DClELE 



1546 

BEF 

T2 

LAST 

1135 

00,2525 

26 131 

0 


AOS 

BUF *1 


1547 

REF 

22T 

LAST 

1134 

00,2526 

3 4714 

1 


CA 

zero 


1548 

BEE 

T3 

LAST 

1135 

00,2527 

54 130 

1 


TS 

BUF 


1549 

BBF 

1 



00,2530 

1 2363 

1 


TCF 

BUFZEBO 


1550 

BBF 

30T 

LAST 

1135 

00,2531 

10 000 

0 

BunJTO 

CCS 

A 


1551 

BBF 

2 

lAST 

1132 

00,2532 

1 2416 

1 


TCF 

BUF- 

TO BuF- IF BUF IS LESS THAN -1 . 

1552 

BEF 

T4 

LAST 

1135 

00,2533 

3 0131 

1 


CA 

HUP *1 

IF BUF IS -1, FOBCLNG SIGN AGBEe>eNT 

1553 





00,2534 

0 0006 

X 


BXTEl® 


MAY CAU® BUF to BBCCMB ZERO. 

1554 

BEF 

3 

LAST 

1135 

00,2535 

6 2416 

0 


BZ4F 

Bir- 

Branch if signs aoibb. 

1555 

BBF 

14 

LAST 

1135 

00,2536 

4 4675 

0 


CS 

HALF 

SIGNS DISACaBE. FCRGB AGBEBCNT. 

1556 

REF 

2 

LAST 

1132 

00,2537 

1 2524 

1 


TCP 

buffos +6 






H55T 

1559 

1560 

1561 

1562 

1563 

1564 

1565 

1566 

1567 

1568 

1569 

1570 

1571 

1572 

1573 

1574 

1575 

1576 

1577 

1578 

1579 

1580- 

1581 
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iMieaPHBisa 

THE POLLO»n« ARB PROLOtUs TO SHIPr THE DIVIDB© AHRIvWO 
LAST 1124 


RBP 23 

HEP 15 
HEP 187 
REP 24 
HEP 188 
REP 1 


last 1135 

LAST 1129 
l^ST 1138 
LAST 1138 


HEP 495 LAST 1135 
HEP 3 LAST 1134 


00.2540 

00.2541 

00.2542 

00,2543 

00.2544 

00,2545 

00.2540 

00,2547 

00,2550 

00.2551 

00.2552 

00,2553 

00.2554 

00.2555 

00.2556 

00.2557 

00,2560 

00,2561 

00,2562 

00,2563 

00,2564 


22 021 
0 0006 
7 4675 
56 001 
6 0021 
56 001 
1 2571 


-21D 


20 001 1 
20 001 1 
20 001 1 
20 001 1 
20 001 1 
20 001 1 
20 001 1 
20 001 1 
20 001 
20 001 
20 001 
20 001 
20 001 
52 155 


UfCH 

EXTB® 

SR 

MP 

HALP 

XCH 

L 

AO 

SR 

XCH 

L 

TCP 

OEfflOV 

DOOLBL 

DOOUBL 

DOCXHL 

DOOUBL 
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0SEB»S pace no. 80 B 3 S3 

IN A AND L BEPOBE THE DIVIDE. 

SPECIAL PRCLOQUE POR UNIT WHai THE 
tawiH OP THE abolpent was not less than 
. 5. IN THIS CASE, EACH CCMPCNENT MJST BE 
ailPTED RIGHT CNB TO PRODUCE A HALP-UNIT 

vector. 

WITH DP DIVIDE© IN A.L. 

PHCLOtXE WHICH normalizes THE DIVIDEND 
wav IT IS KNOWN THAT NO DIVISION 
CVERPLOW WILL OCCUR. 


DDCIEL 
DOOUBL 
DOOUBL 
DOOUBL 
DOOUBL 
DOOIEL 
DOOUBL 
DOOUBL 
DOOUBL 
DxCH MPAC 


00,2565 10 140 0 MAXTEST CCS 
00,2566 06552 0 BIASHI DEC 


MAXOVSW 
.4192 B_i 


1582 REP 1 


00,2567 1 2642 1 


TCP MAxDv 


0 TP majors MICHT BE =, -1 OTHERWISE • 
SORT CCNSTONTS 

Ohboc To see ip they abb now equal. 






•L 

P1S83 

R15B5 

R15B6- 

R1S8T 

R1589 

R1S91 

R1593 

R1S95 

R1591 
R1S99 
. RlSOl 

1803 

1804 
1605 
1806 

160T 

1608 

1609 

1610 
1611 
1612 

1613 

1614 

1615 

1616 

161T 

1618 

A1619 
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nrKRPieiai 
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USBEUS PACE NO. 61 ~ B3 S3 


Ve POLLOStlNB 1® * GENERAL POHPO® DOUBCS PHBCISICK DIVISION BOITINE. IT DIVIDES MPAC BT BUF AND LEAVES 

■B* result IN MPAC. UK HCHIiarINO coompis HJST BE SATISFIED* 

1 . THE DIVTS8R (flUFI HIST BE POSITIVE AND NOT LESS WAN .5. 

2. WE DlVWffl) (M*AC» MUST BE POSITIVE WIW WE MAJOR PART OP MPAC STRICTLY LESS WAN WAT OP BUP 
(A special' APPRO dMATtn*^ MAWV, IS USED RHSL WE MAJOR PARTS ARB EOJAL) . 

iimttKiTftNDtNB-mSm'A/B - O ♦ S(B/B) OHERS S = 2<-14) AND 0 AND R ARE OUCTIENT AND REMAINDER, RESPEC- 
TIVELY Tro^roS^Na WHHICMMATION is obtained by multiplying abo/e and belo» by c - ® and neglecting^]^ w 
OKKR S-SOUARED (POSSIBUY mTHODUCING ERROR INTO THE L0» TWO BITS OP WE BBaA.T) . SKW AGREEMENT IS IHNECESSARY. 

A ♦ ffl 


A ♦ ® . 

= O 

C ♦ » 

REP 496 LAST 1138 

REP T5 LAST 1135 
REP 49T last 1137 

B0P 498 LAST 1137 

REP 76 LAST 1137 
REP 499 LAST 1137 


REP 77 LAST 1137 
REP 500 LAST 1137 
REP 1 


((a-oD) 


S(- 


« <C 1 

!aD„^mi 52 155 . 1 

o ooo6 i 

mjisnE. 10 130 1 
dlDuZHra} 52 155 1 


) itCBB O AND R ARE OJOTIENT AND REMAINDER OP BBSPECTIVK,Y. 

C 


GBfflDV 

♦1 


(ORi^rRi 

cnDifdOVO) 

faD„OTffi 

(DD„2253r777 

TTDijJHIljnj 

fUm^ j^gRTTI 


4 0154 
0 0006 
7 0131 
6 0155 
54 000 
1 2606 


(DD,3BTK . '0. 0006 1 
(ir0„OTB3 60' 130 0 
aOR^ffll* - 24 154 1 
(iiD„^aas 1 2610 0 


REP 


mskssnsi 

WltiXUlTI 


0 0006 1 
6 2620 1 


♦5 


DXCH 

EXTB© 

MPAC 

DV 

BUP 

DjcCH 

MPAC 

CS 

EXTSND 

MPAC 

MP 

BUP +1 

AD 

OVSK 

MPAC +1 

TCP 

♦5 

EjnBTO 

su 

BUP 

INCR 

MPAC 

TCP 

^DOWN 

EXTEND 

B2MP 

-UP 




WB NEED A AND B ONLY POR FIRST DV. 
(special unit PRCLOQUE BHERS HERE) . 
A NOW (XKIAINS Q AND L, R. 


POEM DIVIDEND FOR MINOR P/ART OF RESULT. 
OVERFLOW at WIS POINT IS POSITIVE StNCE 


R IS POSITIVE IN EVERY CASE. 


OVERFLOW CAN BE REMOVED BY SUBTRACTING C 
(BUP) Q«® SINCE R IS ALWAYS LESS WAN C 
IN WIS CASE. INCR CCMPENSATES SUBTRACT. 
(SINCE C{A) IS STILL POSITIVE). 

CIA) CAN BE MADE LESS THAN C IN MAGNI- 
HBB BY DIMINISHING IT BY C (SINCE C IS 
NOT LESS THAN .5) UNLESS C(A) = 0. 
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DUEHPRBIER 


1620 

1621 HBP Tg lAST 1137 

1622 

1623 

1624 

1625 RBP 1 


BEP 501 LAST 1137 
BEP 2 LAST 1132 


3 LAST 1138 


1630 

1631 KBP 502 LAST 1138 

1632 BBP 79 LAST 1138 


00,2610 

0 0006 1 

♦DOffN 

BYIBO 

00,2611 

60 130 0 


au BUP 

00,2612 

0 0006 1 


©Gieo 

00,2613 

1 2816 0 


OS' O 

00,2614 

0 0006 1 


EXTBO 

00,2615 

6 2824 0 


BZV E»S»MxDV 

00,2616 

24 154 1 

♦3 

inch MPAC 

00,2617 

1 2825 0 


TCP PINALDv 

00,2820 

0 0008 1 

-UP 

EnB© 

00,2621 

1 2830 1 


BZP PWALDv ♦3 

00,2822 

0 0006 1 


exre® 

00,2623 

26 154 0 


dim MPAC 

00,2624 

6 0130 0 

BffMAxDv AO BUP 


20’35 OCT. 28,1968 SATHAP .007 PAGE 1139 
USBR«S PAGE NO. 82 83 S3 


IP POSITIVE, HHAXS CNLY IP NEOESSARY 
SINCE THE CCWPENSATINO INCR MIGHT CAUSE 
tVERPLON. 

K»T SETRACT UNLESS RESULT IS POSITIVE 
OR zero. 


KEEP aETRACr HERB AND COMPaiSATE. 


IP zero, set minor part of result to 
zero. 


IP negative, add C to a, sietoactino one 

TO CCMPB4SATB. DIM IS CK HERE SINCE THE 
major PART NEVER GOBS NEGATIVE. 








m* ASSSeiB RBVISION 249 

L nnespfiffisa 


1633 

1634 

1635 

tep 80 

LAST 1138 

1636 

HEP 503 

LAST 1138 

1637 

REP 6 

LAST 1133 

1638 

REP 259 

LAST 1129 

1639 

REP 260 

LAST 1139 

1640 

REP 261 

LAST 1139 

1641 

1642 

REP 504 

LAST 1139 

1643 

REP 505 

LAST 1139 

1644 

REP 228 

LAST 1135 

1645 

REP 262 

LAST 1139 


CP AOC ntOQBAM COLOSSUS BY NASA 2021111-041 20 


e0.2S2S 22 OOT 0 PWAUV & 

00,2S2S 0 0008 1 BlTIBO 

00,2827 10 130 1 IV W' 

00,2630 54 155 1 *3 T3 MPAC *1 

00,2831 10 136 1 CCS IVSIIW 

00,2832 0 0002 0 iC O 

00,2833 0 0002 0 1C O 

00,2634 0 0002 0 1C O 

00,2635 0 0006 1 EXTB® 

00,2838 4 0155 1 DCS MPAC 

00,2837 52 155 1 ftlW MPAC 

00,2840 3 4714 1 CAP 2»BO 

00,2841 0 0002 0 TC O 


I 

I i 

i ! 


'35 OCT. 26,1968 SATBAP .007 PAGE 1139 
USEUS PAGE NO. 63 B3 S3 

DO Dsr TO CBDAIN MINOR PART CP RESULT. 

LEAVE RESULT POSITIVE IWLESS C(IVSIGN)= 

- 0 . 


SO »E AUtATS RETUrei WITH C(A) = 0. 


ASS»«* HEVISIW 249 OP AGO PBOSAM COLOSSUS BY WVSA 2021111-041 
msapfeieii 
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USBIbS PAOB NO. 64 B 3 S3 

*1*52 C ♦ SB . (C ♦ B - D) 

*1*53 = 3TTTT ♦ SC ) 

R1654 C ♦ ® < c ) 


BS' 508 
HH' 81 


TOE DIVISICK MAY BE PERPO(e«) MHIIATELY SINCE B IS STRICTLY LESS THAN D AND C IS NOT LESS THAN S 

SEE IPM^XOr^SE CTlS^S^'- 

BT 1139 00i2643 6 0130 0 AO rtTl? N0(641LI^1XIQ4 


IAST 1136 


BEP 33 LAST 1134 
BEP-SOT LAST 1140 


82 LAST 1140 
508 LAST 1140 
2 LAST 1138 


00,2642 

4 

0154 

0 

►«XDV 

Cs 

MPAC 

00,2643 

6 

0130 

0 


AO 

BUP 

00,2644 

0 

0006 

1 


EXT5ND 


00,2645 

1 

2647 

1 


BZP 

+2 

00,2646 

1 

2570 

0 


TCP 

CeiDDV 

00,2647 

3 

A672 

0 

+2 

CAP 

POSMAx 

00,2650 

54 154 

0 


TS 

MPAC 

00,2651 

4 

0131 

0 


CS 

BUP ♦! 

00,2652 

6 

0155 

0 


AD 

MPAC +1 

00,2653 

1 

2624 

1 


TCP 

ENEMAxIV 


MPAC NOW LESS THAN flUP - DIVIDE AS USUAL 

set major part op result. 


FORM DIVIDB© OP MINOR PART OP RESULT. 


ao ADO C AND DO DIVIDE, ATTACHING SIGN 

bepore Exiting. 
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■ U®R«S PAGE NO. 85 E3-83 

L ikibrpbbtbr 

ness VBCMOB DIVIDS) BY SCALAR, V/SP, IS BXECUIED HERE. THE VECTOR IS NCVf IN MPAC WITH SCALAR IN RJP. 


16T0 

BEP 138 

LAST 1132 

00,2654 

4 4712 

0 

16T1 

BEP 

4 

LAST 1135 

00,2655 

54 137 

0 

16T2 

BEP 

41 

LAST 1118 

00,2656 

54 127 

1 

ieT3 

BEP 

1 


00,2657 

0 3010 

0 

16T4 

BEP 

83 

LAST 1140 

00,2860 

52 131 

0 

1875 

BEP 

1 


00,2661 

0 7513 

1 

1878 

BEP 

84 

lAST 1141 

00,2662 

52 131 

0 

1677 

BEP 

85 

LAST 1141 

00,2663 

10 130 

1 

1678 

BEP 

1 


00,2664 

1 2721 

0 

1679 




00,2865 

1 2667 

0 

-1680 

BEP 

1 


00,2666 

1 2715 

1 

1681 

BEP 

86 

LAST 1141 

00,2667 

56 131 

1 

1682 

REP 

8T 

LAST 1141 

00,2670 

56 130 

0 

1683 

REP 

509 

LAST 1140 

00,2671 

56 155 

0 

1684 

BEP 510 

LAST 1141 

00,2672 

56 154 

1 

1685 




00,2673 

0 0006 

1 

1686 




00,2674 

1 2676 

0 

1687 

BEP 

3 

LAST 1134 

00,2675 

1 2405 

0 

1688 

REP 

511 

LAST 1141 

00,2676 

56 160 

0 

1689 

512 

LAST 1141 

00,2677 

56 157 

1 

1690 




00,2700 

0 0006 

1 

1691 




00,2701 

1 270 3 

0 

1692 

BEP 

4 

LAST 1141 

00,2702 

1 2405 

0 

1693 

BEP 

513 

LAST 1141 

00,2703 

56 162 

1 

1694 

BEP 514 

LAST 1141 

00,2704 

56 161 

1 

1695 




00,2705 

0 0006 

1 

1696 




00,2706 

1 2710 

1 

1697 

REP 

5 

LAST 1141 

00,2707 

1 2405 

0 

1698 

REP 

88 

LAST 1141 

00,2710 

10 130 

1 

1699 

REP 

2 

LAST 1141 

00,2711 

1 2721 

0 

1700 

REP 

6 

LAST 1141 

00,2712 

1 2405 

0 

1701 

REP 

2 

LAST 1141 

00,2713 

1 2715 

1 

1702 

REP 

7 

LAST 1141 

00,2714 

1 2405 

0 

1703 




00,2715 

0 0006 

1 

1704 

REP 

89 

LAST 1141 

00,2716 

4 0131 

0 

1705 

BEP 

90 

LAST 1141 

00,2717 

52 131 

0 

1706 

mF 

42 

LAST 1141 

00,2720 

24 127 

0 


/BUP- 


CS 

T3 

TS 

IC 

WCH 

IC 

nxCH 

CCS 

TCP 

TCP 

TCP 


CNE 

lAWOHMCT 
VBUP +5 

vecaoree 

Bir 

ALSICNAO 

BUP 

BUP 

/BUP+ 

♦2 

/BUP- 


BUP +1 
BUP 

MPAC +1 
MPAC 


XCH 
XW 

XCH 
XCH 

BXTBTO 

BZP +2 

TCP DVOVP 

XCM MPAC +4 

XCM MPAC +3 

EXTRTO 
BZP +2 

TCP DVOVP 

XCH MPAC +6 

XCM MPAC +5 

EXTEND 
BzP *2 

TCP DVO^ 

CCS 
TCP 
TCP 
TCP 
TCP 


BUP 

/BUP+ 

rvovP 

/BUP- 

DVOVP 


EXIETO 
DCS BoP 
DXCH BUP 
INCR VflUP +5 


INITIALIZE DIVIDEND NOHMALIZATICN COjNT 
AND DIVISION SICN RBOISIEB. 


PORCE SICN AGBEE!«NT IN VECTOR 


SIGN AGREE BUP 

PORCE DIVISOR POSITIVE WITH MAJOR PART 
NCN-ZEBO < IP POSSIBLE) . 


ailPT VECTOR AND SCALAR LEPT 14. 


check por overflow in each case. 


ZERO DIVISOR - CVERPIXIW. 


CN NEGATIVE, CCMPIJEMENT BoP AND MAINTAIN 
DVSIGN IN VBUP +5. 



I 


*SSBVLB BBVISIOi 249 OP AOC PBOGRflM CQU3SSUS BY ?tt3 A 2021111-041 
iwiebpbsibh 


ITOT 




iToe 

BEP 

91 

l^ST 1141 

1T09 

REP 

14 

LAST 1134 

ITIO 

REP 

1 


ITll 




1T12 

RBP 

5 

last 1141 

1T13 




1T14 

BEP 

92 

last 1142 

1T15 

RBP 

93 

last 1142 

1T16 

REP 

94 

last 1142 

ITIT 




1T18 




1T19 

RBP 

1 


1T20 

REP 

1 


1T21 

HEP 515 

last 1141 

1T22 

REP 518 

last 1142 

1T23 

HEP 517 

last 1142 

1T24 

REP 

2 

last 1142 

1T25 

REP 518 

last 1142 

1T28 

REP 519 

last 1142 

1T27 

HEP 520 

last 1142 

1T28 

RBP 

3 

last 1142 

1T29 

REP 

2 

last 1125 


00,2T21 

0 0006 1 

/BuP* 

EXTS© 

00,2T22 

3 0131 1 


DCA 

BUP 

00,2723 

52 134 0 


DXCH 

BUP2 

00,2724 

1 2732 1 


TCP 

/NORM 

00,2725 

0 0006 1 

/NCBMz 

EXTEND 

00,2726 

24 137 1 


AuO 

DVNC*WCT 

00.2727 

0 0008 1 


EXTEND 

00,2730 

3 0131 1 


DCA 

Hup 

00,2731 

20 131 0 


OAS 

BUP 

00.2732 

3 0130 0 

/sam 

CA 

BUP 

00.2733 

6 0000 1 


DOUBLE 


00,2734 

54 000 0 


CVSK 


00,2735 

1 2725 1 


TCP 

/NOHM2 

00,2738 

0 2750 1 


TC 

V/SCDv 

00,2737 

52 160 1 


DxCH 

MPAC +3 

00,2740 

52 155 1 


DxCM 

MRAC 

00.2741 

52 160 1 


DXCM 

MPAC *3 

00,2742 

0 2750 1 


TC 

V/9t3V 

00,2743 

52 162 0 


DxCH 

MPAC +5 

00,2744 

52 155 1 


DxCH 

MPAC 

00,2745 

52 162 0 


DxCH 

MPAC tS 

00,2746 

0 2750 1 


TC 

v/sctv 

00,2747 

1 7367 0 


TCP 

VROWTEX 




20*35 OCT. 28,1988 SATRAP .OOT PAOB 1142 
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LEAVE ABSCORia DIVISOR) W BUP2 

fob cvERPLOar testing 
normalize divisor in BUP. 

IP LESS than . 5, Ata®rr dvnqbmct and 
doielb divisor. 


SEE IP DIVISOR normalized. 


double AND TRY AGAIN IP NOT. 

DO X COtpONENT DIVIDE. 

ajPPLY AHQJMaCTS IN USUAL SEOUENCE. 


Y CCMPCNENT. 


Z CCMPCNENT. 

00 rb-arrange ccmpcnents before Exit. 




20*35 OCT. 28,1968 SATOAP .OOT PAGE 1143 




11 

L 

P1T30 


ASSaCU KVISIW 249 OP AQC PBOCSUM COUISSUS Bt HASA 2021111-041 

US8IUS PAGE NO. BT 

aAKxrriNB used By v/sc to dividb vector ccmpo®»t in mpac,*i bc the scaiar oivai in rf. 


B3 83 


1T32 

fCBP 

43 

LAST 

1141 

00,2750 

3 0127 

0 

1T33 

VBP 

T 

lAST 

1139 

00,2751 

54 136 

1 

1T34 

IMP 521 

LAST 

1142 

00,2752 

10 154 

0 

1T35 

■BP 

1 



00,2753 

1 2767 

1 

1T38 





00,2754 

1 2756 

0 

1T3T 

IBP 

1 



00,2755 

1 2763 

0 

1T38 

BEP 

522 

LAST 

1143 

00,2756 

10 155 

1 

1T39 

BESP 

2 

lAST 

1143 

00,2757 

1 2767 

1 

1T40 

BBP 263 

LAST 

1139 

00,2760 

0 0002 

0 

1T41 

«P 

2 

LAST 

1143 

00,2761 

1 2763 

0 

■1T42 

■BP 264 

LAST 

1143 

00,2762 

0 0002 

0 

1T43 





00,2763 

0 0006 

1 

1744 

BSP 523 

LAST 

1143 

00,2764 

4 0155 

1 

1745 

BBP 524 

LAST 

1143 

00,2765 

52 155 

1 

1746 

■EP 

s 

LAOT 

1143 

00,2766 

24 136 

0 

1747 

BEP 

139 

LAST 

1141 

00,2767 

4 4712 

0 

1748 

BBP 

4 

LAST 

1136 

00,2770 

54 140 

0 

1749 

BBP 525 

LAST 

1143 

00,2771 

4 0154 

0 

1750 

BBP 

15 

LAST 

1142 

00,2772 

6 0133 

0 

1751 

BBP 

306 

LAST 

1135 

00,2773 

10 000 

0 

1752 

BEP 

1 



00,2774 

1 3004 

1 

1753 





00,2775 

1 2777 

0 

1754 

BBP 

6 

LAST 

1141 

00,2776 

1 2405 

0 

1755 

BBP 

5 

LAST 

1143 

00,2777 

54 140 

0 

1756 

BBP 526 

LAST 

1143 

00,3000 

4 0155 

1 

1757 

BBP 

16 

LAST 

1143 

00,3001 

6 0134 

1 

1758 





00,3002 

0 0006 

1 

1759 

BBP 

6 

LAST 

1143 

00,3003 

6 2405 

1 

1760 

BW 527 

LAST 

1143 

00,3004 

52 155 

1 

1761 

BBP 

• 

LAST 

1142 

00,3005 

50 137 

1 

1762 

BBP 

2 

LAST 

1135 

00,3006 

1 2565 

1 


/MPAC- 


/MPAC* 


CA 

VBlP +5 

BEPLECTS SIGN OP SCALAR. 

TS 

DVSIOI 


CCS 

MPAC 

POBCE MPAC POSITIVE, EXITING 1 

TCP 

/MPAC* 


TCP 

♦2 


TCP 

/MPAC- 


CCS 

MPAC *1 


TCP 

/MPAC* 


TC 

0 


TCP 

/MPAC- 


TC 

O 


EXTB© 


USUAL CCMPLB«NTINO AND ®TTI1 

DCs 

MPAC 


DXCH 

MPAC 


INCH 

DVSIOI 


C3 

ONE 

initialize NEAR-CNE SBITOH. 

TS 

MAXIVW 


CS 

MPAC 

CHECK POSSIBLE OVEBPLCBf. 

AD 

BUP2 

iknoemalized input divisor. 

CCS 

A 


TCP 

DOVCAli 

NOT NEAR-CNE 

TCP 

*2 

*0 IS JUST possible 

TCP 

DVO/P 

NO HOPE 

TS 

MAXIVa* 

SIGNAL possible NEAR-CNE CASE 

CS 

MPAC *1 

SEE IP DIVISICN CAN BE DCNE 

AD 

BUP2 *1 


Extend 

BzfF 

DvtVF 


DXCH 

MPAC 

CALL PHE-DIVIDE NOBMALIzATICN 

INDEX 

DVNORHCT 


TCP 

MAXTEST 




By l«SA 2021111-041 
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111 


1T63 

1T84 

1T65 

1T66 

1T8T 

1T68 

1T69 

ITTO 

ITTl 

1772 

1773 

1774 


AsaSCLB RBVISIQN 249 OP AOC PROCfflAM COLOSSUS 
dubhpbbisi 


HBP 265 LAST 1143 
BBP 528 lAST 1143 
REP 2 last 1141 

REP 529 last 1144 
REE 530 LAST 1144 
REP 3 LAST 1144 
REP 531 LAST 1144 
REP 532 last 1144 
REP 4 LAST 1144 
REP 533 LAST 1144 
REP 309 LAST 1143 


00,3007 32506 0 

00,3010 56 002 0 
00,3011 52 155 1 
00,3012 0 7513 1 
00,3013 52 155 1 
00,3014 52 160 1 
00,3015 0 7513 1 
00,3016 52 160 1 
00,3017 52 162 0 
00,3020 0 7513 1 
00,3021 52 162 0 
00,3022 0 0000 1 


.8324 
O 

»AC 
ALSICMAQ 
DyCH MPAC 
OyCH KPAC *3 
1C ALSIGNAO 
D)(CH MPAC 4.3 
DKCH MPAC *5 
1C ALSIGNAO 
ByCh MPAC 45 
IC A 


SLOpao DEC 

veCAOBSB XCH 
EOCCH 
IC 


USSRaS PAGE NO. 88 B3 S3 

SAvB Q IN A 
SIORACSIBB MPAC 

SIGN AGREE MPAC 4.3 

SIGNAORBE MPAC +5 





2021111-041 





AaS»BLE REVISICW 249 OP AOC PROOHAM COLOSSUS Bt NASA 2021111-041 
IWIBRPRBTER 

IHB FQUiMINO BO/riNE EXECVIBS THE UNIT INSIUCriOI, HHICH 


FITTS 


THE PQLLOll 

ITTT 

REP 2 

last 1141 

ms 

HEP 2 

WST 1114 

1TT9 

EBP 229 

last 1139 

ITSO 

HEP 6 

last 1132 

1T81 

HEP 3 

LAST 68 

m 2 

HHP 1 


1T83 

HEP 4 

last 1145 

1TB4 

HHP T 

last 1145 

1T85 

1T86 

1T8T 

HEP 10 

last 1143 

iTsa 

1TS9 

HHP 534 

last 1144 

1T90 

HEP 26 

LAST 1099 

1T91 

HEP 1 


1T92 

HEP 1 


1T93 

HEP 535 

last 1145 

1T94 

1T95 

HEP 189 

LAST 1136 

1T96 

HEP 27 

last 1145 

1T9T 

HEP 1 


1T98 

HEP 11 

last 1145 

1T99 

HEP 1 


1800 

REP 46 

LAST 1131 

1801 

HEP 310 

last 1144 

1802 

1803 

HESP 1 


1804 

HEP 1 


ISOS 

HEP 4 

last 1061 

1806 

HEP 47 

LAST 1145 


180T HEP 536 

1808 HEP 190 

1809 HEP 230 

1810 HEP 1 


1811 

1812 


HEP 


48 

1 


1813 HEP 1 

1814 HEP 49 

1815 

1818 HEP 537 


last 1145 
LAST 1145 
last 1145 


LAST 1145 


LAST 1145 
last 1145 


00,3023 

0 3010 0 unit 

IC 

VECAfflfflE 

00,3024 

0 7501 1 

TC 

MPACvSUP 

00,3025 

3 4714 1 

CAP 

ffiRO 

00,3026 

56 121 0 

XCM 

OVPIND 

00,3027 

54 141 1 

TS 

TB4l 

00,3030 

0 3317 1 

TC 

VSQSifi 

00,3031 

3 0141 0 

CA 

TE4l 

00,3032 

56 121 0 

XCM 

OvPIND 

00,3033 

0 0006 1 

EXTEND 

00,3034 

1 3036 0 

BZP 

♦2 

00,3035 

1 2405 0 

TCP 

IVXVP 

00,3036 

0 0006 1 

EXTH© 

00,3037 

3 0155 0 

DCA 

MPAC 

00,3040 

50 120 1 

INDEX 

PIXLOC 

00,3041 

52 043 1 

DXCM 

LVSQUARE 

00,3042 

0 3343 0 

TC 

SQRTSLB 

00,3043 

10 154 0 

CCS 

MPAC 

00,3044 

1 3051 1 

TCP 

♦5 

00,3045 

54 001 1 

TS 

L 

00,3046 

50 120 1 

INDEX 

PIXLOC 

00,3047 

52 045 1 

DxCH 

LV 

00,3050 

1 2405 0 

TCP 

DVOVP 

00,3051 

4 4333 1 

cs 

fcuhtebn 

00,3052 

6 0135 0 

AD 

HPTEMP 

00,3053 

10 000 0 

CCS 

A 

00,3054 

4 0000 0 

Cd 


00,3055 

1 3133 1 

TCP 

SMllL 

00,3056 

1 3065 0 

TCP 

LARGE 

00,3057 

4 4720 1 

CS 

THIRTEEN 

00,3060 

54 135 1 

TS 

MPIEMP 

00,3061 

3 0154 1 

CA 

MPAC 

00,3062 

54 001 1 »MU,2 

TS 

L 

00,3063 

3 4714 1 

CAP 

zero 

00,3064 

1 3112 1 

TCP 

LAHGE2 

00,3065 

10 135 1 large 

CCS 

MPTENP 

00,3066 

1 3074 0 

TCP 

LAHGE3 

00,3067 

4 2024 1 

Cs 

SRDDV 

00,3070 

54 135 1 

TS 

MPTE4P 

00,3071 

0 0006 1 

EXTEND 


00,3072 

3 0155 0 

DCA 

MPAC 


20’35 OCT. 28,1968 SATHAP .OOT PAOB 1145 
USERaS PACE NO. 89 B3 S3 

TAKES THE IKIT OP THE VECTOR IN MPAC. 

PORCB Slew ACEsaea* in vector 
SAVE AROuMarr in vbup 
HIST saiSE (VERPUW IN POLLOfINO DOT. 

DOT MPAC WITH ITSELP. 


LEAVE THE SQUARE OP THE LfilGlH OP THE 
APDtPENT IN LVSOUARE. 


tX) take the N0HMALI2ED SQUARE ROOT. 

check POR INIT OVBRFLOV. 

MPAC IS NOT LESS THAN .5 UNLESS 


INPUT TO SQRTSUB WAS 0. 

®E IP the input was so small the THE 

PIRST TWO registers OP THE SQUARE WERE 0 

IP SO, SAVE THE negative OP THE allFT 
COUNT -15D. 

tlHIS IS USUALLY the CASE.) 

IP THE SHIFT COUNT WAS EXACTLY 14 , SET 
THE PRE-DIvIDE norm COUNT TO - 13D. 

SHIFT THE LBJGIH RiaiT 14 BEFORE STORING 

( small Exits to this point) . 

GO TO STORE LENGTH AND PROCEED. 

MOST AIL CASES CQ« HERE. fl 

SEE IP NO NOIMALIzATICN WAS REQUIRED BY 

SORT, AND IP SO, SET UP POR A SHIFT 
RICHT 1 BEFORE DIVIDING TO PflOXXT? 

THE DESIRED HAIP UNIT VECTOR. 


I 



Li Df^EHPBfflER 

181T REP 2 WST 1145 00.30T3 1 3112 1 iQ' IA9XZ 


20*35 OCT. 28,1968 SATRAP .007 PAGE 1148 
USR.S PACE NO. TO B3 S3 



AaSBVLB BBVISICW 249 OP *iOC mOCtlAM COUMSUS BY NASA 2021111-041 
IKIBRPBBISl ■ .* 


ssia 




' 00.30T4 

4 0000 0 

Urcbs CCM 


iai9 

RHP 

50 

last 1145 ' 

00;3075 

54 135 1 

TS 

MT»!P 

1820 




00.3078 

4 0006 0 

cm 


?S21 

REF 

311 

last 1145 

00,3077 

50 000 1 


A 

1822 

REF 

66 

last 1130 

00,3100 

3 4675 ,1. 

CAP 

BIT14 

1923 

RBF 

05 

last 1142 

00,3101 

54 130 1 

TS 

BUP 

1824 




00,3102 

0 0006. 1' 

EXTBffl 

1825 

REF 

538 

last 1145 

00,3103 

7 0155‘l 

MP 

MPAC *1 

1826 

REP 

96 

last 1147 

00,3104 

56 130 0 

XCM 

BUP 

1827 




00,3105 

0 0006 1 

EXTBO 

1828 

HEP 539 

last 1147 

00,3106 

7 0154 0 

MP 

MPAC 

1829 

HEP 

191 

last 1145 

00,3107 

56 001 0 

XCM 

L 

1830 

RHP 

97 

last 1147 

00,3110 

6 0130 0 

AD 

Blp 

1831 

REP 

192 

LAST 1147 

00,3111 

56 001 0 

Xf« 

L 

1832 

REP 

28 

last 1145 

00.3112 

50 120 1 

LAHOBz'. index 

PIXLOC 

1833 

RHP 

2 

last 1145 

00,3113 

52 045 1 

DXCH 

LV 

1834 

REP 

140 

last 1143 

00.3114 

4 4712 0 

Cs 

(HE 

1833 

REP 

6 

last 1143 

00,3115 

54 140 0 

’TS 

MAxDvar 

1838 

REP 

44 

LAST 1143 

00,3116 

52 123 0 

DxCH 

VBOF 

1837 

REP 540 

last 1147 

00,3117 

52 155 1 

DXCH 

MPAC 

1838 

REP 

98 

last 1147 

00,3120 

52 131 0 

DXCH 

BUP 

1839 

REP 

1 


00,3121 

0 3151 1 

TC 

UNIIDV 

1840 

REP 

45 

last 1147 

00,3122 

52 125 0 

DxCH 

VBUP +2 

1841 

REF 541 

last 1147 

00,3123 

52 155 1 

DxCH 

MPAC 

1842 

REP 542 

LAST 1147 

00,3124 

52 160 1 

DxCH 

MPAC +3 

1843 

REP 

2 

LAST 1147 

00,3125 

0 3151 1 

TC 

UNITDV 


RGP 48 LAST 1147 
BEP 543 LAST 1147 


REP 544 
REP 3 
REP 3 


LAST 1147 
LAST 1147 
last 1142 


00,3128 

00,3127 

00,3130 

00,3131 

00,3132 


52 1 27 1 
52 155 1 
52 162 0 

0 3151 1 

1 7367 0 


VBUP +4 
MPAC 
MPAC +5 
tNITIV 
vRomiec 


20 ’35 OCT. 28,1968 SATRAP .007 PACE 1147 

U®B<«3 PA33 NO. 71 B3 S3 

■, LEAVE NBOATIVB CP SHIRT. COLMT-l FOR 
PRHJIVIDB LEFT SHIFT. 

PiQc UP BEOUIIfflJ SHIFTING BIT TO CWNORA- 
ALIzE the SORT RESULT. 


(tWNCIMlLIzE THE SORT FOR LV) . 


'La«3TH NOR STORED IN WORK AREA. 


NO MAxDv CASES IN UNIT. 

PREPARE X CCMPCNENT FOR DIVIDE, SETTING 
LBIGIH OP vector as DIVISOR IN BuP. 


DO Y AND z IN USUAL FAStlCN SO wE CAN 

Exit thrcugh vroiatex. 


AND EXIT. 


Assaeu! BBVISICK 249 CF AGC PHOCStAM COLOSSUS Bf NASA 2021111-041 
OnBRPftBTBR 


H64» 



IP THE LENOIH CP THE ABOIMBIT VECTOR «AS LESS THAN 2l-, 

B1B51 

14 PLACES rePORB THB DIVIDE. 

1 

1 

IN THIS CASS, THE MAJOR I 

1853 

lEP 

51 

LAST 1147 

00,3133 

54 135 

1 

94ALL T3 

MPIH<)P 

1854 

8BP 

231 

LAST 1145 

00,3134 

3 4714 

1 

CAP 

®HO 

1855 

RHP 

47 

LAST 1147 

00,3135 

56 123 

1 

XCH 

VBUP ♦! 

1856 

HBF 

48 

LAST 1148 

00,3136 

56 122 

0 

XCH 

VBUP 

1857 

HEP 

49 

LAST 1148 

00,3137 

56 125 

1 

XCH 

VBUP *3 

1858 

HEP 

50 

LAST 1148 

00,3140 

56 124 

0 

XCH 

VBUP +2 

1659 

HEP 

51 

LAST 1148 

00,3141 

56 127 

0 

XCH 

VBUP +5 

1860 

REP 

52 

LAST 1148 

00,3142 

56 126 

1 

XCH 

VBUP +4 

1861 

lep 

52 

LAST 1148 

00,3143 

4 0135 

1 

C3 

MPTB4P 

1862 

REP 312 

LAST 1147 

00,3144 

50 000 

1 

IMEX 

A 

1863 

REP 

6 T 

LAST 1147 

00,3145 

3 4675 

1 

CAP 

BIT14 

1664 




00,3146 

0 0006 

1 

EXTH® 


1865 

HEP 545 

LAST 1147 

00,3147 

7 0154 

0 

HP 

MPAC 

1866 

HEP 

1 


00,3150 

1 3062 

1 

TCP 

S>MLL 2 

1867 

RHP 

4 

LAST 724 

4720 



THIRIHBC X 

OCT15 

1888 

HEP 

2 

LAST 736 

4333 



POUHTEax X 

aCTl6 

1869 

REP 

14 

LAST 369 

4333 



OCT 16 = 

RlDl 


20’35 OCT. 28,1968 SATRAP .007 PACK 1148 
USBIbS PAGE NO. 72 B 3 S3 


NECMTIVE OP PBE-DIVIDB SHIFT Ca/IT. 


% 


SHIFT EACH CCMPCNENT LEFT 14. 
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Pl 8 t 0 


IHB PQLUMINO ROUTINE SETS OP 

THE CALL TO THE DIVIDE ROUTINES. 


1871 

HEP 546 

LAST 1148 

00,3151 

10 154 

0 

IWITDV 

CCS 

MPAC 

PORCE MPAC POSITIVE IP POSSIKE, SBITINO 

1072 

HEP 1 


00,3152 

1 3170 

0 


TCP 

IMPAC+ 

DVSIGN ACCOBDINO TO THE SIGN OP MPAC 

1873 



’ 00,3153 

1 3155 

1 


TCP 

♦2 

SINCE THE DIVISOR IS ALSIAYS POSITIVE 

1074 

HEP 1 


00,3154 

1 3162 

p 


TCP 

UMPAC- 

HBtffi. 

1075 

HEP 547 

LAST 1149 

00,3155 

10 155 

1 


CCS 

MPAC +1 


1876 

KBP 2 

LAST 1149 

00,3156 

1 3170 

0 


TCP 

IWPAC* 


1877 

HEP 266 

LAST 1144 

00,3157 

0 0002 

0 


IC 

0 

EXIT DMDIATELY CN ZERO. 

1878 

HEP 2 

last 1149 

00,3160 

1 3162 

0 


TCP 

IWPAC- 


1879 

HEP 267 

LAST 1149 

00,3161 

0 0002 

0 


TC 

0 


1880 

HEP 232 

last 1148 

00,3162 

4 4714 

0 

UMPAC- 

Cs 

®RO 

IP negative, set -0 IN DVSIGN FOR PINAL 

1881 

HEP 9 

LAST 1143 

00,3163 

54 136 

1 


TS 

DVSIGN 

CCMPL0®1T. 

1882 



00,3164 

0 0006 

1 


EXTBTO 



1883 

HEP 548 

LAST 1149 

00,3165 

4 0155 

1 


DCS 

MPAC 

PItV UP ABSCLUIE VAUE CP ARQ AND JUMP. 

1884 

REP 53 

LAST 1148 

00,3166 

50 135 

0 


INDEY 

MPTEMP 


1885 

REP 3 

LAST 1143 

00,3167 

1 2564 

0 


TCP 

MAXTEST -1 


1886 

REP 10 

LAST 1149 

00,3170 

54 136 

1 

IWPACt 

TS 

DVSIGN 

®T DVSIGN POR POSITIVE QUOTIENT. 

1887 

REP 549 

LAST 1149 

00,3171 

52 155 

1 


DXCH 

MPAC 


1888 

REP 54 

last 1149 

00,3172 

50 135 

0 


INDEX 

MPTPMP 


1889 

HEP 4 

last 1149 

00,3173 

1 2564 

0 


TCP 

MAXTEST -1 
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interpreter 


Pie90 



MISISLLANEOUS IKARV OPERATIONS 




1691 

REF 

1 


00,3174 

0 3300 

1 

OSQ 

TC 

DSOSUB 

1692 

REF 

41 

LAST 1135 

00,3175 

1 6030 

0 


TCP 

DANZIG 

1693 

REF 

22 

last 1131 

00,3176 

10 163 

1 

ABVALABS CCS 

HCDB 

1894 

REP 

1 


00,3177 

1 3226 

0 


TCP 

ABS 

1695 

REF 

2 

LAST 1150 

00,3200 

1 3226 

0 


TCP 

ABS 

1896 

REP 

2 

LAST 1145 

00,3201 

0 3317 

1 

ABvAL 

TC 

VSOSUB 

189T 

REF 

23 

LAST 1150 

00,3202 

22 163 

0 


LXCH 

MCBB 

1898 




00,3203 

0 0006 

1 


Exraro 


1699 

REF 550 

LAST 1149 

00,3204 

3 0155 

0 


DCA 

MPAC 

1900 

REP 

29 

LAST 1147 

00,3205 

50 120 

1 


INDEX 

FIXLOC 

1901 

HEP 

2 

LAST 1145 

00,3206 

52 043 

1 


DXCH 

IVSQUARB 


% 

20’35 OCT. 28,1988 SATRAP .007 PAGE 1150 


USER-S PAOE NO. 74 


square the dp ccntents op mpac. 


ABVAL OR ABS INSTRUCTION. 
DO ABS ON SCALAR. 


DOT HPAC WITH ITSELF. 

MODE IS NOW DP (L ZERO AFTER DAS) . 

STORE square of LENGTH IN WORK AREA. 





20*35 OPT. 28,1968 SATRAP .OOT PACE 1151 



m 





L OnBBTBBTBR vaBSmS PAOB NO. T5 *3 S3 

P1902 PBOtSBAM IWSCRIPTICN- SLBHOOTINE SORT 

R1903 PWOMWAL tKsCRIPTICNJXXBLE PJffiCISICK SOUABB BOOT BOin'INB 

R1904 Uns PHOQRAM WkES THE SOUAlS BOOT CP IKE 2T OB 28 MOST SICSIIFICANT BITS IN THE TRIPLE PBECISICN SET OP 

B1908 «J«EBS-MPAC,MPACti,AND MPAC+2. THE BOOT IS BBIUHNED DOUBLE PBECISICN IN MPAC AND MPAC+i . 

B1908 ■ABNIMO- this SUBKOOTINB USES A TRIPLE PRECISICN INPUT. THE PBOEIA^ER MUST ASSURE THE CXNTENTS CP MPAC*2 
B1910 ESPECIALLY IP THE CCNTENTS OF MPAC IS a«LL OR ZERO. POB DBWILS SE SIO MEMO NO.949. 

R1912 CALLOO SEOLENCB- IN INTERPRETIVE MODE I.E., POLLORINO IC INTPKST.SQRT NO ADDIESS IS ALLO»H> 

B1914 INPUT 3CV1LINO THE BINARY POINT IS ASSIMED TO THE HICHT OP BIT 15. THE ANSWER IS BETUINH) WITH THE SAME SCALING 
R1916 3l«IDUriNES- GB<SCR,MPACaiH, SQRTSUB, ABORT 

B191T ABCBT BCIT MCJDE- ABORTS CN NEGATIVE INIVT -1.2)C10E-4 CT77T5 OCTAL) CR LESS. 

B1919 DlSPtAYS error CODE 1302 

R1920 TC abort 

B1921 OCT 1302 

R1922 DfflBIS - LOCATIONS BUP,MPTB1P,ADOiS(D ARE USD 


1923 

BBP 

2 

last 1145 

00,3207 

0 3343 

0 

SORT TC 

SQRTSLB 

take the square RCOT op MPAC. 

1924 

REP 

5S 

LAST 1149 

00,3210 

10 135 

1 

CCS 

MPTSMP 

BETUrecED NOR4ALIza) SOJARE RCOT. SEE IP 

1925 




00,3211 

1 3213 

0 

TCP 

*2 

ANY IN-NOHMALIZATICN REQUIRED AND EXIT 

192S 

BBP 

42 

LAST 1150 

00,3212 

1 6030 

0 

TCP 

DANZIO 

IP NOT. 

1927 

RB' 

3 

LAST 1130 

00,3213 

6 3730 

0 

AD 

NEQ12 

A BIGHT SIIPT OP MORE THAN 13 COULD BE 

1928 




00,3214 

0 0006 

1 

EXTB© 


REQUIRED IP INPUT WAS ZERO IN MPAC,*i. 

1929 

BBP 

1 


00,3215 

6 3221 

0 

BaWP 

SQRTaiPT 

CXES here in most CASES. 

1930 




00,3216 

22 007 

0 

ZL 


IP A LCNO SIIPT IS REQUIRED, GO TO 

1931 

REP 

TT 

LAST 1131 

00,3217 

22 116 

1 

UCCH 

ADOBWD 

GENERAL BIGHT SIIPT BCUTINES. 

1932 

BBP 

4 

LAST 1130 

00,3220 

1 2303 

1 

TCP 

GEISCR *4 

ADOBWD WAS ZERO TO PREVENT ROND. 

1933 

BBP 

56 

last 1151 

00,3221 

50 135 

0 

SQRTSIFT INDEX 

MPTB4P 

ffiLECT SHIPPING BIT AND EXIT THROUGH 

1934 

«P 

45 

LAST 1101 

00,3222 

3 4674 

0 

CAP 

BITlS 

SIIPT ROUTINES. 

1935 

BBP 

ST 

LAST 1151 

00,3223 

54 135 

1 

TS 

MPIEMP 


1938 

BBP 

233 

LAST 1149 

00,3224 

3 4714 

1 

CAP 

ZEBO 

TO zero MPAC +2 IN THE PROCESS. 

193T 

BBP 

2 

LAST 1130 

00,3225 

1 2036 

1 

TCP 

MPACaiB *3 


1938 

BBP 

3 

LAST 1127 

00,3226 

0 6672 

1 

ABS TC 

branch 

TEST SItH OP MPAC AND CCMPLfMENT IP 

1939 

BBP 

43 

LAST 1151 

00,3227 

1 6030 

0 

TCP 

DANZIG 


1940 

BBP 

44 

LAST 1151 

00,3230 

1 6030 

0 

TCP 

DA,NZIG 


1941 

BEP 

4 

LAST 1121 

00,3231 

1 7637 

0 

TCP 

CCMP 
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Assa«LE RBVISIQN 249 OF AOC PROOMM COUJSSOS BY NASA 2021111-041 
INIERPHBIER 


% 


USBIUS< PAOB NO. T6 


1942 

RBP 

16 

LAST 1116 

00,3232 

4 4T10 

1 

VDEP 

cs 

POOR 

1943 

RBP 

13 

last 1119 

00,3233 

26 lee 

1 


ADS 

TU91LOC 

1944 




00,3234 

0 0006 

1 


BXTSO 

1945 

BEF 313 

LAST 1148 

00,3235 

5 0000 

1 


Doex 

A 

1946 




00,3236 

3 0003 

1 


DCA 

2 

194T 

REF 551 

LAST 1150 

00,3237 

52 160 

1 


DXCM 

MPAC 4.3 

1948 




00,3240 

0 0006 

1 


EXTS!® 

1949 

REF 

14 

LAST 1152 

00,3241 

5 0166 

0 


INDEX 

poaiLoc 

1950 




00,3242 

3 0001 

0 


DCA 

0 

1951 

REP 552 

LAST 1152 

00,3243 

52 162 

0 


DxCM 

MPAC *5 

1952 

REF 

2 

last 1118 

00,3244 

1 6470 

0 


TCP 

VMCDE 

1953 

REF 

3 

last- 1150 

00,3245 

0 3317 

1 

VSQ 

7C 

VSOSUB 

1954 

REF 

1 


00,3246 

1 7301 

0 


TCP 

CMODE 

1955 




00,3247 

0 0006 

1 

PUS1 

ExTB© 

1956 

REF 553 

last 1152 

00,3250 

3 0155 

0 


DCA 

MPAC 

195T 

REP 

15 

last 1152 

00,3251 

50 166 

0 


INDEX 

PUaiLOC 

1958 




00,3252 

52 001 

1 


DXCH 

0 

1959 

REF 

24 

last 1150 

00,3253 

50 163 

0 


INDEX 

MODE 

1960 

REF 

5 

last 1096 

00,3254 

3 6213 

1 


CAP 

NO.WDS 

1961 

REF 

16 

last 1152 

00,3255 

26 166 

1 


AOS 

PUWLOC 

1962 

REP 

25 

LAST 1152 

00,3256 

10 163 

1 


CCS 

MCDE 

1963 

REP 

1 


00,3257 

1 3272 

1 


TCP 

TPOai 

1964- 

REP 

45 

last 1151 

00,3260 

1 6030 

0 


TCP 

DANZIG 

1965 




00,3261 

0 0006 

1 


EXTEND 


1966 

REP 554 

last 1152 

00,3262 

3 0160 

0 


DCA 

MPAC *3 

196T 

REF 

17 

last 1152 

00,3263 

50 166 

0 


INDEX 

PuaiLOC 

1968 




00,3264 

51«775 

0 


DXCH 

0 -4 

1969 




00,3265 

0 0006 

1 


EXTEND 


19T0 

REP 555 

last 1152 

00,3266 

3 0162 

1 


DCA 

MPAC »5 

19T1 

REP 

18 

LAST 1152 

00,3267 

50 166 

0 


INDEX 

PUSHLOC 

19T2 




00,3270 

51-777 

1 


DxCM 

0 -2 

19T3 

BEP 

46 

LAST 1152 

00,3271 

1 6030 

0 


TCP 

DANZIG 

19T4 

REF 556 

LAST 1152 

00,3272 

3 0156 

0 

TPUSH 

CA 

MPAC +2 

19T5 

REP 

2 

LAST 1095 

00,3273 

1 6523 

1 


TCP 

ENDTPUSH 

19T6 

REP 

30 

LAST 1150 

00,3274 

50 120 

1 

RVO 

INDEX 

FIXLOC 

19T7 

REP 

18 

LAST 1098 

00,3275 

3 0052 

0 


CA 

OPRET 

19T8 

REP 

21 

last 1110 

00,3276 

54 117 

1 


TS 

pan SI 

19T9 

REP 

5 

LAST 1099 

00,3277 

1 6621 

0 


TCP 

GOTO +4 


vector DBPINE - ESSENTIALUf, TREATS 
SCALAR IN MPAC AS X CCKPCNENT, PUaffiS UP 
FOB y AND 1H®I AQAIN FOR Z. 


MODE IS sen vector. 


dot MPAC WITH ITSELF. 
MODE IS NOW DP. 


poai DOWN MPAC leaving it loaded. 


Puai DOWN first two registers in each 


INCRB®1T PUaiDCWN POINTER. 


Puai DOWN MPAC +2. 
DONE FOR DP. 


CN vector, puai DOWN y and z ccmpcpients. 


RVQ - RETURN IVA OPRET. 


(ASSlM? OPRET POINTS TO FIXED CNI.y. ) 
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USB>S PAOB NO. TT Ea S3 


P1980 


THE POLLOWINa SLPROHriNES ARE USED IN 

SOUARINO MPAC, in BOm THE SCALAR AND VBCTC« SENSE. THEY ARE 

R19B2 

SPECIAL CASES 

OF DMPSUB AND DOTSUB, PUT 

IN TO SAVE SO« 

TI^«. 


1983 

US' 557 

LAST 

1152 

00,3300 

3 0155 

0 

DSQSUB 

CA 

MPAC 

squares the SCALAR CCNTENTS CP MPAC 

19B4 




00,3301 

0 0006 

1 


EXTB® 



1985 




00,3302 

7 0000 

0 


souarb 



1986 

REP 558 

LAST 

1153 

00,3303 

54 156 

1 


TS 

MPAC *2 


1987 

REP 234 

LAST 

1151 

00,3304 

3 4714 

1 


CAP 

ZERO 

POiW ZCCROSS 1EHM) . 

1988 

REP 559 

LAST 

1153 

00,3305 

56 155 

0 


XCH 

MPAC *1 


1989 




00,3306 

0 0006 

1 


EXTB® 



1990 

REP 560 

LAST 

1153 

00,3307 

7 0154 

0 


MP 

MPAC 


1991 




00,3310 

20 001 

1 


DDOlBL 


AND MAYBE O/ERFLOjT. 

1992 

HEP 561 

LAST 

1153 

00,3311 

20 156 

1 


DAS 

MPAC *1 

AND set a to net OyEBPLO». 

1993 

REP 562 

LAST 

1153 

00,3312 

56 154 

1 


XCH 

MPAC 


1994 




00,3313 

0 0006 

1 


BXTB® 



1995 




00,3314 

7 0000 

0 


square 



1996 

HEP 563 

LAST 

1153 

00,3315 

20 155 

1 


das 

MPAC 


1997 

BEP 268 

LAST 

1149 

00,3316 

0 0002 

0 


1C 

0 


1998 




00,3317 

0 0006 

1 

VSOSCB 

EXTEND 


dots the vector in MPAC WITH ITSBLP. 

1999 

REP 8 

LAST 

1108 

00,3320 

22 137 

1 


OXOI 

DOTRET 


2000 

REP 2 

LAST 

1150 

00,3321 

0 3300 

1 


TC 

DSOSLfl 

square the X CCMPCNENT. 

2001 

BEP 564 

LAST 

1153 

00,3322 

52 160 

1 


DxCH 

MPAC +3 


2002 

REP 565 

LAST 

1153 

00,3323 

52 155 

1 


DXCH 

MPAC 


2003 

REP 99 

LAST 

1147 

00,3324 

52 131 

0 


DxCH 

BUP 

SO WB CAN END IN DOTSUB. 

2004 

REP 566 

LAST 

1153 

00,3325 

3 0156 

0 


CA 

MPAC +2 


2005 

REE 100 

LAST 

1153 

00,3326 

54 132 

0 


TS 

BUP +2 


2006 

REP 3 

LAST 

1153 

00,3327 

0 3300 

1 


1C 

DSQSUB 

square Y CCMPCNENT. 

2007 

REP 567 

LAST 

1153 

00,3330 

52 156 

1 


DxQl 

MPAC +1 


2008 

REP 101 

LAST 

1153 

00,3331 

20 132 

0 


DAS 

BUP +1 


2009 

REP 568 

LAST 

1153 

00,3332 

6 0154 

1 


AD 

MPAC 


2010 

REP 102 

LAST 

1153 

00,3333 

6 0130 

0 


AD 

BuP 


2011 

HEP 103 

LAST 

1153 

00,3334 

54 130 

1 


TS 

HUP 


2012 




00,3335 

1 3337 

1 


TCP 

*2 


2013 

REP 8 

LAST 

1145 

00,3336 

54 121 

1 


TS 

CVPIND 

IP Oi/ERPLO>f. 

2014 

REP 569 

LAST 

1153 

00,3337 

52 162 

0 


DXCH 

MPAC +5 


2015 

BEP 570 

LAST 

1153 

00,3340 

52 155 

1 


DXCH 

MPAC 


2016 

REP 4 

LAST 

1153 

00,3341 

0 3300 

1 


1C 

DSQSUB 

square Z CCMPCNENT. 

2017 

BEP 1 



00,3342 

1 7154 

1 


TCP 

BTOOOT 

END AS IN DOrSUH. 
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mOlPRBTER 


P2018 


DOBLE PRECISION SQUARE ROOT ROUTINE 

take the SQUARE 1 

R2020 

Df HORSALIzATIQM) I 

CONTENTS OP MPAC AND 

LEAVE THE NOSS>MLIZED REa 

R2022 

THB RIGHT SHIFT CCXWT CTO UNNOR^ALI^) IS 

LEFT 1 

IN MPTH4P. 

2023 

HEP 235 

last 1153 

00,3343 

3 4714 1 

SORTSUB CAP 

ffiRO 

2024 

RBF 58 

last 1151 

00,3344 

54 135 1 


TS 

MPTBMP 

2025 

HE5' 571 

last 1153 

00,3345 

10 154 0 


OCs 

MPAC 

2026 

RBP 1 


00,3348 

1 3404 0 


TCP 

a4PACt 

2027 



00,3347 

1 3351 1 


TOP 

*2 

2028 

RBF 1 


00,3350 

1 3373 1 


TCP 

SQRTNBQ 

2029 

REF 572 

last 1154 

00,3351 

56 156 0 


XCH 

MPAC t-Z 

2030 

HHF 573 

last 1154 

00,3352 

56 155 0 


XCM 

MPAC 

2031 

BEF 574 

last 1154 

00,3353 

54 154 0 


TS 

MPAC 

2032 

HBF 15 

LAST 905 

00,3354 

3 4716 0 


CAP 

SEV&I 

2033 

HEF 59 

last 1154 

00,3355 

54 135 1 


TS 

MPTBMP 

2034 

BEF 575 

last 1154 

00,3358 

10 154 0 


CCS 

MPAC 

2035 

REP 2 

last 1154 

00,3357 

1 3404 0 


TCP 

S4PAC+ 

2036 



00,3360 

1 3362 1 


TCP 

♦2 

2037 

RSP 1 


00,3361 

1 3376 1 


TCP 

ZBRCANS 

2038 

BEF 576 

last 1154 

00,3362 

56 155 0 


XCH 

MPAC 

2039 

BHF 577 

last 1154 

00,3363 

54 154 0 


TS 

MPAC 

2040 

HEF 16 

last 1154 

00,3364 

3 4716 0 


CAP 

seven 

2041 

REP 60 

last 1154 

00,3365 

28 1 35 1 


AOS 

MPTEMP 

2042 

HEF 578 

last 1154 

00,3366 

10 154 0 


CCS 

MPAC 

2043 

REP 3 

last 1154 

00,3387 

1 3404 0 


TCP 

SMPAC,. 

2044 

REF 269 

last 1153 

00,3370 

0 0002 0 


TC 

0 

2045 

HEP 2 

last 1154 

00,3371 

1 3376 1 


TCP 

zercwns 

2046 

RBF 1 


00,3372 

1 345 2 0 


TCP 

PIXHOOT 

2047 

REF 314 

LAST 1152 

00,3373 

10 000 0 

SQRINBG 

CCS 

A 

2048 

RBF 1 


00,3374 

1 340 2 0 


TCP 

SQRWBRT 

2049 

HEP 579 

last 1154 

00,3375 

10 155 1 


CCS 

MPAC +1 

2050 

BEP 238 

last 1154 

00,3376 

3 4714 1 

ZEROANS 

CAP 

ZERO 

2051 

RBF 2 

last 1154 

00,3377 

1 345 2 0 


TCP 

PIXROOT 

2052 

RHP 2 

LAST 1154 

00,3400 

1 3402 0 


TCP 

SQHTABRT 

2053 

RBF 3 

last 1154 

00,3401 

1 345 2 0 


TCP 

PIXROOT 

2054 

RBF 3 

LAST 367 

00,3402 

0 5622 1 

SORWBRT TC 

POOXO 

2055 



00,3403 

01302 1 


OCT 

1302 


20 '35 OCT. 28,1968 SATRAP .OOT PAOB 1154 
USERaS PAOB NO. 78 E3 S3 


START BY ZBROINO RICHT SIIPT COUNT. 

QffiQc FOR POSITIVE ARGITENT, SIIPTING 
FIRST SIGNIFICANT MPAC REGISTER INTO 
MPAC ITSELF. 

SEE IF HAG OP ARGlwaiT LESS THAN 10(-4). 
MPAC IS zero - ailFT LEFT 14. 

AUMNT RIGHT SHIFT COUNTER. 

SEE IF MPAC NOW PNZ. 

negative But less than io<- 4 ) in mag. 
zero - ailFT LEFT 14 AGMIN. 

Aua«NT RIGHT SIIFT CCUNTER. 




SQRTIo) = 0. 

DO NOT LEAVE SORTSUB WITH _o IN MPAC. 
AHQi>ENT IS NEGATIVE, BUT SEE TP SIGN- 
CORHECIED ARGUMENT IS lESS THAN 10(-4) 

IN MAGNITTXe. IP SO, CAU, ANSWER ZERO. 
force answer TO zero HERB. 





20’35 OCT. 28,1968 8ATEIAP .DOT PACE 1155 
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USBxS PAOB NO. T9 B3 S3 


205S 

REP 

1 



00,3404 

205T 





00,3405 

2058 

HEP 

1 



00.3406 

2059 

REP 580 

LAST 

1154 

00,3407 

2060 

REP 

25 

LAST 

1136 

00,3410 

2061 





00.3411 

2062 

REP 

16 

LAST 

1136 

00,3412 

2063 

HEP 

581 

LAST 1155 

00,3413 

2064 

REP 

26 

LAST 1155 

00,3414 

2065 

REP 582 

LAST 

1155 

00,3415 

2066 

REP 

1 



00,3416 

208T 





00,3417 

2068 

REP 

583 

LAST 

1155 

00,3420 

2069 

HEP 

1 



00,3421 

20TO 

REP 

104 

LAST 

1153 

00,3422 

20T1 

REP 

584 

LAST 

1155 

00,3423 

20T2 





00,3424 

20T3 





00,3425 

20T4 

HEP 

105 

LAST 

1155 

00,3426 

20T5 





00.3427 

20T6 

REP 

IT 

LAST 

1155 

00,3430 

20TT 

REP 

106 

LAST 

1155 

00,3431 

20T8 





00,3432 

20T9 

REP 

18 

LAST 

1155 

00,3433 

2080 

REP 

585 

LAST 

1155 

00,3434 

2081 





00,3435 

2082 

REP 

lOT 

LAST 

1155 

00,3438 

2083 

REP 

108 

LAST 

1155 

00,3437 

2084 

REP 

237 

LAST 

1154 

00,3440 

2085 

REP 

193 

LAST 

114T 

00,3441 

2086 





00,3442 

208T 

REP 

109 

LAST 

1155 

00,3443 

2088 

REP 

194 

LAST 

1155 

00,3444 

2089 

REP 

■110 

LAST 

1155 

00,3445 

2090 

REP 

586 

LAST 

1155 

00,3446 

2091 





00,3447 

2092 

REP 

1 



00,3450 

2093 

REP 

34 

LAST 

1140 

00,3451 

2094 

REP 

587 

LAST 

1155 

00,3452 

2095 

HEP 

588 

LAST 

1155 

00,3453 

2096 

HEP 

270 

LAST 

1154 

00,3454 


6 2444 

1 

»4PAC* 

AD 

-1/2*2 

0 0006 

1 


BXTB® 


a 3455 

0 


BztV 

SRIEST 

52 155 

1 


DXCH 

MPAC 

22 021 

1 


LXCH 

SR 

0 0006 

1 


Exia© 


7 4675 

0 


MP 

HALP 

52 155 

1 


DXCH 

MPAC 

56 021 

1 


XCH 

SR 

26 155 

1 


ADS 

MPAC *1 

3 2314 

0 

ARGHI 

CAP 

aX3PB« 

0 0006 

1 


BXTBTO 


7 0154 

0 


MP 

MPAC 

6 2566 

0 


AD 

BIAail 

54 130 

1 

*4 

TS 

BUP 

3 0154 

1 


CA 

MPAC 

22 007 

0 


ZL 


0 0006 

1 


EXTEND 


10 130 

1 


DV 

BUP 

0 0006 

1 


EXTB® 


7 4675 

0 


MP 

HALP 

26 130 

1 


ADS 

BUP 

0 0006 

1 


EXTTND 


7 4675 

0 


MP 

HALP 

52 155 

1 


DXCH 

MPAC 

0 0006 

1 


Extend 


10 130 

1 


DV 

BUP 

54 131 

0 


TS 

BUP +1 

3 4714 

1 


CAP 

ZERO 

56 001 

0 


XW 

L 

0 0006 

1 


extend 


10 130 

1 


DV 

HUP 

54 001 

1 


TS 

L 

3 0131 

1 


CA 

BUP *1 

20 155 

1 


DAS 

MPAC 

0 0006 

1 


EXTEND 


1 3454 

0 


BzF 

ICQBNKOO 

3 4672 

0 


CAP 

PO&Wx 

54 154 

0 

PIXROOT 

TS 

MPAC 

54 155 

1 


TS 

MPAC 

0 0002 

0 

ICQBNKOO 

TC 

0 


ffiE IP AIKXMENT GREATER THAN OR EQUAL TO 
.5. 

IP SO, ses IP LESS THAN .25. 

•B Will, take the SQOAiffl ROOT OF MPAC/2. 
SHIPT BIGHT 1 AND GO TO THE SORT ROUTINE 


guaranteed no OYBHPLCW. 

AHGLWENT BBTWEai .25 AND .5. GET A 
LINEAR APPRCKIMATICN FOB THIS RANGE. 

XO/2 = (MPAC/2)(SLOPaiI) + BIAaiI/2. 

XO/2 (ARGI/3 enters HERB) . 
SINGLB-PRECISICN THROUGHOUT. 


(MPAC/2)/(X0/2) 


XI = XO/2 + .5(MPAC/2)/<X0/2). 


POBM UP Xl/2. 

SAVE AND bring CUT AHGlWENT. 
take dp quotient with XI . 

SAVE MAJOR PART OP ajOTIENT. 

P0R4 MINOR PART OP QUOTIENT USING 
(REMAINDER, 0) . 


IN PREPARATION FOR DAS. 

X2 = Xl/2 I- (MPAC/2)X1 
OVERFLOWS IF ARG. NEAR POSMAx. 


RETURN TO CAUER TO LNNORMAt.IZE, BTC. 



1 . 
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209T 

aeap e 

LAST 992 

2098 

2090 

IB' 1 


2100 

HHP 589 

last 1155 

2101 

■S' 27 

last 1155 

2102 

2103 

■S' 19 

last 1155 

2104 

■S' 590 

last 1156 

2105 

■S' 28 

LAST 1156 

2100 

■BB 591 

last 1156 

21 or 

■a' 1 


2108 

2109 

■S' 592 

last 1156 

2110 

■S' 1 


2111 

■S' 1 


2112 

2113 

■S' 593 

last 1158 

2114 

■S' 594 

last 1156 

2115 

■S' 595 

last 1156 

2116 

■S' 596 

last 1156 

2I1T 

■S' 81 

last 1154 

2110 

2119 

■S' 597 

last 1158 

2120 

■S' 598 

last 1156 

2121 

■S' 599 

last 1156 

2122 

■S' 600 

last 1156 

2123 

2124 

■S' 19 

LAST 373 

2125 

■S' 20 

last 1156 

2128 

IKP 21 

last 1156 

2121 

■EP 1 


2128 

BSP 2 

LAST 1156 

2129 

■BP 1 



00,3455 

6 4676 1 

SRTEST 

AO 

CUARTER 

00,3456 

0 0006 1 


E)aB© 

00,3457 

6 3501 0 


B2MP 

SQRTNGSM 

00,3460 

52 155 1 


DXCH 

MPAC 

00,3461 

22 021 1 


locOi 

SR 

00,3462 

0 0006 1 


BXTB© 

00,3463 

7 4675 0 


MP 

HALP 

00,3464 

52 155 1 


DXCH 

MPAC 

00,3465 

56 021 1 


XCH 

SR 

00,3466 

28 155 1 


AOS 

MPAC *1 

00,3467 

3 3007 0 

ARGLO 

CAP 

SLOPELO 

00,3470 

0 0000 1 


ExtB® 

00,3471 

7 0154 0 


MP 

MPAC 

00,3472 

6 2270 0 


AO 

BIASLO 

00,3473 

1 3422 1 


TCP 

Aaaii >4 

00,3474 

0 0006 1 

SQBTNM2 

Extend 

00,3475 

3 0156 0 


DCA 

MPAC ♦! 

00,3476 

20 156 1 


CAS 

MPAC ♦! 

00,3477 

6 0154 1 


AO 

MPAC 

00,3500 

28 154 0 


ADS 

MPAC 

00,3501 

24 135 0 

SQRTNQRM 

LNCr 

MPTE4P 

00,3502 

0 0006 1 


EXTEND 


00,3503 

3 0156 0 


DCA 

MPAC +1 

00,3504 

20 156 1 


DAS 

MPAC +1 

00,3505 

6 0154 1 


AO 

MPAC 

00,3506 

26 154 0 


ADS 

MPAC 

00,3507 

6 0000 1 


DCUftE 


00,3510 

54 022 0 


TS 

CYL 

00,3511 

10 022 0 

NOtWIEST 

CCS 

CTI, 

00,3512 

10 022 0 


CCS 

CYL 

00,3513 

1 3474 1 


TCP 

SQRTTeiz 

00,3514 

1 3416 0 


TCP 

AHaii 

00,3515 

1 3487 0 


TCP 

AflCSU) 


20’35 OCT. 20,1968 SAUWP .007 PAOB 1158 

USSbS PAOB NO. 80 B3 S3 

AHGUKIT was less than .5, SEE IP LESS 
than .25. 

IP SO, BBOIN NOBMALIzATICN. 

IP BBIWEBI .5 AND .25, SHIFT RIGHT 1 AND 
START at AHOLO. 


NO OVERFLOW. 

INOEMALIzED) AHCXWBLT BBIwaSN .125 AND 
.25 


begin SOUABE root. 

SHIFT left 2 AND INCRHBENT RIGHT SIIFT 
CCUNT (FOR TERMINAL UNNOHMALIzATIQN) . 


(NO overflow) . 

PIHST TIi'e THHOXX, JUST SHIFT LEFT 1 
(PUTS IN EFFECTIVE RIGHT SHIFT SINCE 
WE want MPAC/ 2) . 



(AGAIN NO OVERFLOW) . 


SRR IP AI«XT«NT NOW NORvlALIZED AT 
GBPATBR than .125 . 

NO - ailPT LEFT 2 MORE AND TRT AGAIN 
TBS - NOW BETwaM .5 AND .25 . 
AHCLMENTNOW between .25 AiND .125 
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F2130 

IRIOONOMBTRIC FUNCTION PAQcAGE. 




R2131 


THE FOUjCWING TRIGCNOETOIC PIWCTICKS ABB available as INTERPBBTIVB OPERATICHS' I 

R2133 


1. SIN 


OMPlTrES <1/2>S1NE(2 PI MPAC) . 


R2134 


2. COS 


COMPinES <i/2)COSINE«2 PI MPAC). 


R2135 


3. ASIN 


CCMPinES <1/2PI>AHCSINE(2 MPAC). 


R2136 


4. ACOS 


CCMPiriES <l/2PI)AflDCOSINB(2 MPAC). 


R2137 

SIN-ASIN AND COS^COS ARE NUTUALLY INVERT, IE 

SINIASINCX)) = X. 


2138 

REP- 4 

LAST 1151 

00,3516 

0 6672 1 

COSINE 

TC BRANCH 

-FINDS COSINE USING THE merriTY 

2139 



00,3517 

1 3522 0 


TCP *3 

COS(X) = SINtPI/2 - ABS(X>). 

2140 

REP 1 


00,3520 

1 3525 1 


TCP presine 


2141 

REP 2 

LAST 1157 

00,3521 

1 3525 1 


■jcf presine 


2142 



00,3522 

0 0006 1 

♦3 

EXTB® 


2143 

REP 601 

LAST 1156 

00,3523 

4 0155 1 


DCS MPAC 


2144 

HEP 602 

LAST 1157 

00,3524 

.52 155 1 


DXCH MPAC 


2145 

REP T 

LAST 1156 

00,3525 

3 4676 1 

prbsine 

CAP OWRTER 

PI/2 SCALED. 

2146 

REP 603 

LAST 1157 

00,3528 

26 154 0 


ADS MPAC 


2147 

REP 604 

LAST 1157 

00,35 27 

52 155 1 

SINE 

DXCH MPAC 

Da0.B AHGueJT. 

2148 



00,3530 

20 001 1 


DDOn, 


2149 



00,3531 

54 000 0 


0Y9C 

»E IP CVERPLOr PRESENT. 

2150 



00,3532 

1 3535 0 


TCP *3 

IP NOT, AflaMaiT On AS IS. 

2151 



00,35 33 

0 0006 1 


EXTEND 

IP SO, WE LOST tOR GAINED) PI, SO 

2152 



00,3534 

4 0001 1 


DCQ4 

COfi>LEf«NT MPAC USING THE IDENTITY 

A2153 







SIN«X-t + )PI) = SIN(-X). 

2154 

REP 605 

last 1157 

00,35 35 

52 155 1 

♦3 

DxCM MPAC 


2155 

REP 606 

lAST 1157 

00,3536 

3 0154 1 


CA MPAC 

aK IP AHGu®rr greater than .5 in 

2156 



00,3537 

6 0000 1 


DOtlLE 

MAGNITUDE. IP SO, REDUCE IT TO LESS THAN 

2157 

HEP 195 

LAST 1155 

00,35 4 0 

54 001 1 


TS L 

.5 I+-PI/2 SCALED) AS POLLOWS’ 

2158 

REP 1 


00,3541 

1 3552 1 


TCP S7l 


2159 

REP 315 

LAST 1154 

00,3542 

50 000 1 


INDEX A 

IP POSITIVE, PORN PI - X, IP NEGATIVE 

2160 

REP T 

LAST 1052 

00,3543 

3 4674 0 


CAP NBGi/2 +1 

USE -PI - X. 

2161 



00,3544 

6 0000 1 


DCUBLE 


2162 



00,3545 

0 0006 1 


EXTETO 


2163 

REP 607 

LAST 1157 

00,3546 

60 154 1 


SU MPAC 

GUARANTEED NO OVERFLOW. 

2164 

REP 608 

LAST 1157 

00,3547 

54 154 0 


TS MPAC 


2165 

REP 609 

LAST 1157 

00,355 0 

4 0155 1 


CS MPAC +1 


2166 

REP 610 

LAST 1157 

00,3551 

54 155 1 


TS MPAC +1 





I 

I 
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216T 

2168 

2169 

21T0 

21T1 
21T2 
31T3 
21T3 
21T4 
21T4 
21T5 
21T5 
21T6 
21T6 
21TT 
21 TT 

21T8 

21T9 

2180 

2181 

2182 

2183 

2184 

2185 

2186 
218? 
2188 

2189 

2190 


HEP 611 
HEP 1? 
HEP 5 


last 115? 
last 1143 
last 1153 


HBP 5 LAST 849 


1 

19 


last 1119 


HEP 612 
H0P 613 
HEP 614 
BEE 615 

HEP 616 
HEP 61? 
HEP 618 
HEP 619 
HEP 47 


last 1158 
last 1158 
last 1158 

last 1158 

last 1158 

last 1158 

last 1158 

last 1158 

last 1152 


00,3552 

0 0006 1 SNl 

EXTB® 

set OP TO EYALUAIE HASTINGS POLYNCMIAL 

00,3553 

3 0155 0 

DCA 

MPAC 


00,3554 

52 134 0 

DKCM 

flUP2 


00,3555 

0 3300 1 

1C 

DSQSUB 

SOJABE MPAC. 

00,3556 

0 T171 1 

IC 

POLY 

EYALUAIE FOUKIH ORDER POLYNCMIAL. 

00 , 355? 

00003 1 

DEC 

3 


00,3560 

14441 0 

2D0C 

3928990796 


00,3561 

37325 1 




00,3562 

532S0 0 

2Dec 

-.8459637111 


00,3563 

80764 1 




00,3584 

12146 1 

2oec 

♦.318758717 


00,3565 

21276 1 




00,3566 

75466 1 

2000 

-.074780249 


00,356? 

71471 0 




60,35?0 

00236 0 

2000 

♦.009694988 


(»0,35?1 

32757 0 




60,35?2 

3 2470 0 

CAP 

LHUP2 

multiply by ARGUMENT AND ailFT LEFT 2. 

00,35?3 

0 7055 0 

1C 

DMPSUB -1 


00,3574 

0 0006 1 

Exrero 



00,3575 

3 0156 0 

OCA 

MPAC +1 


00,3576 

20 158 1 

OAS 

MPAC 


00,357? 

6 0154 1 

AD 

MPAC 


00,3600 

26 154 0 

ADS 

MPAC 

neither ailPT CVERFIXWS. 

00,3801 

0 0006 1 

Extend 



00,3802 

3 0156 0 

DCA 

MPAC 


00,3603 

20 156 1 

DAS 

MPAC +1 


00,3604 

6 0154 1 

AD 

MPAC 


00,3605 

26 154 0 

AOS 

MPAC 


00,3606 

1 6030 0 

ICP 

DANZIG 
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' 2192 

2193 

2194 

2195 

2196 
219T 

2198 

2199 
2290 
2201 
2202 

2203 

2204 

2205 

2200 
220T 
2208 

2209 

2210 

2211 

2212 

2213 


AaCSIN/AHCOOS ROUTINE. 

00,3607 

00,3610 


RES' 


■BP 620 
REP 621 
SBP 1 
IBP 2 
RBP 1 


LAST 1157 


LAST 1158 
LAST 1159 

LAST 1159 


RHP 20 LAST 1158 
RHP 622 LAST 1159 
RHP 316 LAST 1157 
REP 1 


623 last 1159 
238 LAST 1155 

1 


2215 

2216 
221T 

2216 

2219 

2220 
2221 


00,3611 

00,3612 

00,3613 

00,3614 

00,3615 

00,3816 

00,3617 

00,3620 

00,3621 

00,3622 

00,3623 

00,3624 

00,3625 

00,3626 

00,3627 

00,3630 

00,3631 

00,3632 

00,3633 

00,3634 


2214 RHP 2 last 1159 00,3635 


624 LAST 1159 

625 LAST 1159 
3 LAST 1159 


626 LAST 1159 
21 LAST 1159 

627 LAST 1159 
18 LAST 1158 


00,3636 

00,3637 

00,3640 

00,3641 
00,364 2 
00,3643 
00,3644 
00,3645 


2223 WP 3 LAST 1151 


2224 

2225 


62 LAST 1156 

1 


3 3630 1 

ARCSIN 

CAP 

LASINEX 

CCMPUIE AHCSIN BY USING THE IDEOTITY 

1 3612 0 


TCP 

♦2 

AHCSIN(X) = PI/2 - AHCCOS(X). 

3 3T12 0 

AHCOJS 

CAP 

LDANZIO 

(EXITS MBDIATELY). 

54 136 1 


TS 

ESCAPE 


0 66T2 1 


TC 

branch 

TEST SICH OP INPUT. 

1 3624 0 


ICP 

ACOSST 

START IMMEDIATELY IP POSITIVE. 

1 3726 0 


TCP 

ACOSZBBO 

ARCX!O3(0> = PI/2 = .25. 

0 0006 1 


Bciaro 


IP negative, USE THE IDeiTITY 

4 0155 1 


DCs 

MPAC 

ABCCOS(X) = PI - ARCCOS(-X), PORCINO 

52 155 1 


OXCH 

MPAC 

ARGW®JT POSITIVE. 

3 3731 1 


CAP 

TCSUBTR 

SET EXIT TO DO ABOVE ffiPOBB 

56 136 0 


XCH 

ESCAPE 

arcsin/ahccos CCHSIDEHATICNS. 

54 137 0 


TS 

BSCAPE2 


4 4675 0 

ACOS3T 

CS 

HALP 

TEST HACWITUie OP INPUT. 

6 0154 1 


AD 

MPAC 


10 000 0 


CCS 

A 


1 3720 0 


TCP 

ACOSCVP 

THIS IS PHCBABLY AN OVERFLOW CASE. 

1 3706 1 

LASINEjC 

TCP 

ASINEX 


1 3641 0 


TCP 

ACOSST2 

NO OVERFLOW - PROCEED. 

10 155 1 


CCS 

MPAC +1 

IP MAJOR PART IS .5 , CAIJ, ANSWER 0 

3 4714 1 


CAP 

ZERO 

UNLESS MINOR PART NEGATIVE. 

1 3636 0 


TCP 

ACOSrO 


1 3641 0 


TCP 

ACOSST2 


54 155 1 

ACOS=0 

TS 

MPAC +1 


54 154 0 


TS 

MPAC 


0 0136 0 


IC 

ESCAM! 


0 0006 1 

ACOSST2 

EXTEND 

NOW THAT ABGLNBNT IS IN PROPER RANGE, 

4 0155 1 


DCS 

MPAC 

BEGIN CtMPUTATICN. USE HASTINGS 

6 4675 1 


AD 

HALP 

APPRCXIMATICN ARCCOS(X) = SQRT(1-X)P(X) 

52 155 1 


DXCH 

MPAC 

IN A SCALED VERSION WHERE P(X) IS A 

52 134 0 


DXCH 

BUP2 

SEvEdH ORDER POLYNCWIAL. 

0 3343 0 


TC 

SOBTSUB 

RETURNS WITH NOfWLIZ® SOUAHE ROOT. 

10 135 1 


CCS 

MPTEMP 

SEE IP UN-NORMAL IZATICN REQUIHHl. 

1 3713 0 


TCP 

ACOS91B 

IP SO. 



I 


ASSBBLB IIB>asi(M 249 OP AOC PBOCIRAM COUMSUS BY NA3A 2021111-041 
IPIBRPRBIBa 


2228 

222T 

2228 

2229 

2230 

2231 

2231 

2232 

2232 

2233 

2233 

2234 

2234 

2235 

2235 

2236 

2236 

2237 

2237 

2238 
2238 


HEP 628 LAST 1159 
REP 19 LAST 1159 
HEP 629 IAST 1160 

HEP 6 LAST 1158 


00,3651 

52 155 1 ACOS3 

DXCH 

00,3652 

52 134 0 

DKCH 

00,3653 

52 155 1 

DXCH 

00,3654 

0 7171 1 

1C 

00,3655 

00006 1 

DEC 

00,3658 

13240 0 

2OBC 

00,3657 

23630 0 


00,3660 

74721 0 

2DBC* 

00,3661 

47775 1 


00,3662 

02440 0 

2DBC4= 

00,3663 

20237 0 


00,3664 

75067 1 

2DBC4t 

00,3665 

70742 1 


00,3866 

03436 0 

2DBC4= 

00,3667 

26756 1 


00,3670 

74037 0 

2DBC4C 

00,3671 

57640 1 


00,3672 

03046 0 

2DEC4: 

00,3673 

07143 0 


00,3674 

76654 1 

2Pec* 

00,3875 

42244 0 



MPAC 

BUP2 

MPAC 

POLY 

6 

♦ .353553385 


20*35 OCT. 28,1968 SATBAP .007 PAGE naO 
USERkS page no. 84 B 3 S3 
SET UP fob POLTNCMIAL EVALUATION. 


C0EPPICIE<T3 abb C 2(+I)/PIsaBT(2) THEBE 




♦ .0200273085 B*z* THEBE C STANDS FOB ORIGINAL COEFPS. 


.00695311812 B+4* 


-.00384617957 B+sAt 
►.001501297738 B+o* 


2DEC» -.000284180334 Btj* 


2239 • HEP 2 LAST 1158 00,3676 

2240 HEP 20 LAST 1158 00,3677 

2241 REP 4 LAST 1159 00,3700 

2242 00,3701 

2243 REP 630 LAST 1160 00,3702 

2244 HEP 22 LAST 1159 00,3703 

2245 REP 631 LAST 1160 00,3704 

2246 REP 2 LAST 1159 00,3705 

2247 00,3706 

2248 HEP 632 LAST 1160 00,3707 

2249 REP 8 LAST 1157 00,3710 

2250 HEP 633 LAST 1160 00,3711 

2251 HEP 48 LAST 1158 00,3712 


3 2470 

0 


CAP 

LBUP2 

0 7055 

0 


1C 

DMPSUB -1 

0 0136 

0 


1C 

ESCAPE 

0 0006 

1 

SlHTR 

Extend 


4 0155 

1 


DCs 

MPAC 

6 4675 

1 


AO 

hale 

52 155 

1 


DXCH 

MPAC 

0 0137 

1 


1C 

ESCAPE2 

0 0006 

1 

ASINEX 

EXTEND 


4 0155 

1 


DCS 

MPAC 

6 4676 

1 


AO 

OUARIEH 

52 155 

1 


DxC« 

MPAC 

1 6030 

0 

LDANZIG 

TCP 

DANZIG 


DO FINAL MULTIPLY AND GO TO ANY 

epilogue sequences. 

eptloqle por negative inputs to ABCCOS 
forms pi - ArCCOS(-X) = ARCCOS(X). 

GO TO possible ARCSIN EPILOGUE. 

ABCSIN epilogue - GET ABCSIN(X) 

= PI/2 - ABCCOS(X) . 
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2252 

REP 

31T 

LAST 

1159 

00,3713 

50 000 

1 

Acosam 

2253 

REP 

68 

LAST 

1148 

00,3714 

3 4675 

1 


2254 

REP 

63 

LAST 

1159 

00,3715 

54 135 

1 


2255 

REP 

4 

LAST 

1125 

00,3716 

0 2073 

1 


2258 

REP 

1 



00,3717 

1 3651 

1 


225T 





00,37^ 

0 0006 

1 

ACOSCWP 

2258 

REP 

2 

LAST 

1159 

00.3721 

1 3636 

0 


2259 

REP 

33 

LAST 

T82 

00,3722 

0 5537 

0 

acosabbt 

22591 





00.3723 

01301 

1 


2280 

REP 

239 

LAST 

1159 

00,3724 

3 4714 

1 


22801 

IffiP 

3 

LAST 

1181 

00,3723 

1 3838 

0 


2281 

REP 

9 

LAST 

1160 

00.3726 

3 4676 

1 

acoszero 

2282 

HEP 

4 

LAST 

1161 

00,3727 

1 3637 

1 


2263 





00,3730 

77763 

0 

NEOi2 

2284 

REP 

1 



00,3731 

1 3701 

0 

TCSlHTR 


INDBX 

CAP 

TS 

TO 

TCP 


A 

81X14 

MPTBMP 

VSHRHND 

ACOS3 


EXTSND 

BZP ACOS=0 


OCT 

CAP 

TCP 


TCP 

DGC 

TCP 


ALABM 

1301 

ZERO 

ACOSrO 

QOARlEH 
ACOSrO -fl 

-12 

SOBTO 


H« WIFT BIGHT IS LESS THAN 14 SINCE 
THE INPUT WAS NCN-ZEKO DP. 

DP SHIPT BIGHT AND ROUND. 

PROCEED. 

IP MIJOR PART WAS ONLY 1 MORE THAN .5, 
CALL ANSWER ZERO. 

IP O/EBPLOW, CALL ANSWER ZERO BUT 
SOND AN ALABM. 


ACOS(O) = PI/2. 

fflT MPAC AND EXIT VIA ESCAPE. , 
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M POLUMflNO INSTHUOriCNS AM! AVAILABLE POR SETTINO, MTOIPyiNQ, AND BBANCEINO CN INDCSC B0OISTERS' 


II226T 

1. 

AXT 

R22ea 

1. 

AxC 

R2269 

3- 

LXA 

R2270 

4. 

ixC 

R2271 

5. 

SXA 

R2272 

e. 

XCHX 

R2273 

T. 

MCR 

I122T4 

S. 

XAD 

R22T5 

9 . 

XSU 

R22T6 

10. 

TIX 


2278 

REP 

1 


2279 

REP 

1 


2280 

REP 

22 

last 1152 

2281 

REP 

4 

last 1081 

2282 

REP 

50 

last 1091 

2283 

REP 

49 

last 1160 

2284 

REP 

2 

last 1162 

2285 

REP 

23 

last 1162 

2286 

HEP 

1 


2287 

REP 

1 


2288 

2289 

HSP 

24 

last 1162 

2290 

REP 

2 

last 1162 

2291 

HEP 

2 

LAST 1162 

2292 

2293 

HEP 

25 

last 1162 

2294 

REP 

3 

last 1162 

2295 

REP 

3 

last 1162 

2296 

REP 

5 

last 1162 

2297 

REP 

51 

last 1162 

2298 

2299 

REP 

26 

last 1162 

2300 

REP 

50 

last 1162 


01.23T1 


address to index toe. 
address to INIEX CCMPLB®)1H> 

DO® INDEX PHDM erasable. 

U»D MKX CCMPLE}®«H> FHtM ERASABLE 
STOBE INDEX IN ERASABLE. 

BXfEANOB INDEX REIOSIEH WITH ERASABLE. 

INCr0«NT INDEX RSBISTBR. 
erasable ado To INDEX REGISTER. 
erasable subtract prck index RTOISTEH. 

Branch m index register and DECRa>«NT 
bank 01 


01,23T1 0 2466 1 AXT 

01.2372 3 0117 0 

01.2373 50 130 0 XSTORE 

01.2374 54 046 1 

01.2375 1 6030 0 

01.2376 0 2466 1 AxC 

01.2377 4 0117 1 

01.2400 0 2373 1 

01.2401 0 2454 0 LxA 

01.2402 50 117 0 

01.2403 3 0000 1 

01.2404 1 2373 0 

01.2405 0 2454 0 LXC 

01.2406 SO 117 0 

01.2407 4 0000 0 

01.2410 1 2373 0 

01.2411 0 2454 0 SXA 

01.2412 50 130 0 


01.2413 

01.2414 

01.2415 


3 0046 0 
SO 117 0 
54 000 0 


MSTOBEl 


01,2416 1 6030 0 


COUNT Ol/INTER 

IC TflGSUB 
CA PCLIai 
INDEX INDEXLOC 
T3 XI 
TCP DANZIG 


TC -Mosue 

CS POLISH 

TC XSTORE 

TC ISADHBRS 

INDEX PCLIai 
CA 0 

TCP XSTORE 

TC ISADRERS 

index polish 

CS 0 

TCP XSTORE 

TC IsADRERS 

INDEX INDEXLOC 
CA XI 

INDEX POLISH 

TS 0 

TCP DANZIG 


select appropriate index register. 
CONTAINS C(PIXLOC) OH C(PIxLOC)m. 


IX»D INDEX register FRCM ERASABLE. 


LOAD NDX REG FROM ERASABLE CCMPLEmiTEp . 


STORE INDEX REGISTER IN ERASABIE. 
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2301 

HEP 

4 

LAST 1162 

01,2417 

2302 

HEP 

27 

LAST 1162 

01,2420 

2303 




01,2421 

2304 

HEP 

6 

LAST 1162 

01,2422 

2305 

HEP 

52 

LAST 1162 

01,2423 

2306 

hep 

1 


01,2424 

2307 

REP 

5 

LAST 1163 

01,2425 

2308 

hep 

28 

lAST 1163 

01,2426 

2309 




01,2427 

2310 

hep 

7 

LAST 1163 

01,2430 

2311 

REP 

53 

LAST 1163 

01,2431 

2312 

REP 

51 

LAST 1162 

01,2432 

2313 

HEP 

3 

LAST 1162 

01,2433 

2314 

hep 

29 

LAST 1163 

01,2434 

2315 


1 


01.2435 

2316 

HEP 

6 

LAST 1163 

01,2436 

2317 

REP 

30 

LAST 1163 

01,2437 

2318 




01,2440 

2319 

HEP 

2 

LAST 1163 

01,2441 

2320 

REP 

4 

LAST 1163 

01,2442 

2321 

REP 

8 

LAST 1163 

01,2443 

2322 

HEP 

37 

LAST 891 

01,2444 

2323 

REP 

9 

LAST 1163 

01,2445 

2324 

REP 

54 

LAST 1163 

01,2446 

2325 




01,2447 

2326 

HEP 

52 

LAST 1163 

01,2450 

2327 

REP 

10 

LAST 1163 

01,2451 

2328 

HEP 

55 

LAST 1163 

01,2452 

2329 

HEP 

6 

LAST 1152 

01,2453 


0 2454 0 

XCHX 

TC 

isadhers 

50 117 0 


INDEX 

POLISH 

3 0000 1 


CA 

0 

50 130 0 


INDEX 

DOEXLOC 

56 046 0 


XCH 

XI 

1 2414 0 


TCP 

MSTOHEl 

0 2454 0 

XAD 

TC 

isadhers 

50 117 0 


INDEX 

POLISH 

3 0000 1 


CA 

0 

50 130 0 

XAD2 

INDEX 

INDEXLOC 

26 046 1 


AOS 

XI 

1 6030 0 


TCP 

DANZIG 

0 2466 1 

INCH 

TC 

TAGSUB 

3 OUT 0 


CA 

PCLiai 

1 2430 0 


TCP 

XAD2 

0 2454 0 

XSU 

TC 

ISADRERS 

50 117 0 


INDEX 

POLISI 

4 0000 0 


CS 

0 

1 2430 0 


TCP 

XAD2 

0 2466 1 

TIX 

TC 

TAGSlP 

50 130 0 


INDEX 

INDEXLOC 

4 0050 0 


CS 

Si 

50 130 0 


INDEX 

INDEXLOC 

6 0046 0 


AD 

XI 

0 0006 1 


EXTEND 

6 6030 1 


BZ4F 

DANZIG 

50 130 0 

dotixbr 

INDEX 

INDEXLOC 

56 046 0 


XQI 

XI 

1 6615 1 


TCP 

GOTO 


ExCHANOB IND€!X BBOISTEB WITH ERASABLE. 

ADD erasable to INDEX REGISTER. 

IGNORING CVERFLOfS. 

INCREMENT INDEX REGISTER. 

subtract erasable frcm index register. 

branqi and decrement cn index. 

NO OPERATICN IF DECRE'«NTED INDEX IS 
negative or 2ERO. 

ignoring OVEHFLCWS. 

DO THE Branch using the cadr in polisi 


I 


tm n i liiii mu I ' ^ 


2021111-041 



HLB REVISION 249 OP AGO PROGRAM COLOSSUS BV HAS* 
BRPRERR 

aBHCWriNE TO convert an erasable address <11 
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BITS) TO AN EBANK SETTING AND SlEADMESS. 


.OOT 
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31 

last 1163 

01,2454 

4 0117 

1 

15ADRBHS Cs 

POLISH 

3 

last 1091 

01,2455 

6 4727 

1 

AO 

DeC45 

318 

LAST 1161 

01,2456 

10 000 

0 

CCS 

A 

31 

last 1152 

01,2457 

3 0120 

1 

CA 

PIXLOC 



01,2460 

1 2465 

0 

TCP 

♦5 

6 

last 1091 

01,2461 

3 4744 

1 

CA 

OCT1400 

32 

last 1164 

01,2462 

56 117 

0 

XCH 

pOLiai 

50 

last 1099 

01,2463 

54 003 

0 

TS 


12 

last 1099 

01,2464 

7 4373 

0 

mask 

LOtra 

33 

last 1164 

01,2465 

26 117 

1 

+5 ADS 

pcLiai 


DOES THE ADDRESS POINT TO THE WORK AREAir 
YES. ADO PIXLOC. EBAl* QC AS IS. 

NO. SET EBANK d MAKE UP SUBADDRESS. 
fall into TAGSUB, and REimw VIA O. 


aBRCtrriNE WHICH SETS THE ADDRESS OP THE SPECIFIED 


INDEX IN INDEXLOC. (ACnjALLy, THE ADDRESS -3bD.) 


32 last 1164 

11 LAST 1163 

38 LAST 1131 

12 LAST 1164 
2T1 LAST 1155 
272 LAST 1164 


01,2466 

3 0120 

1 taoslb 

CA 

FIXLOC 

01,2467 

54 130 

1 

TS 

INDEXLOC 

01,2470 

10 020 

1 

CCS 

CYR 

01,2471 

24 130 

0 

INCR 

INDEXLOC 

01,2472 

0 0002 

0 

TC 

0 

01.2473 

0 0002 

0 

TC 

0 


bit 15 SPECIFIES INDEX 

0 means U® X2. 

1 for XI. 
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P2350 



MISCELLANEOUS OPEHATICW COSS WITH DIRECT ADDRESSES. INCUBeD HERB ARE’ 

R2352 



1. ITA 


STOBB QPRBT (HETURN ADDRESS) IN ERASABLE. 

R2354 



2. CAU, 


CALL A 

SlflROurlNE, LEAVIJKl RETURN 

IN 

QPRET. 

R2356 



3. KIB 


RETURN 

TO BASIC LA2«3UAGB AT THE GIVEN ADDRESS. 

R2358 



4. BHIZ 


BRANCH 

IP the high order op MPAC 

IS zero (SINO^ PRECISICN), 

R2360 



5. Boy 


Branch 

ON OVBRFIXW. 




R2361 



6 . goto 


SIMPLE 

SEQLeiCE CHANGE. 




2362 

REP 

37 

LAST 1164 

01,2474 

10 020 

1 

RTB/BHIZ CCS 

CTR 



2363 

REP 

34 

LAST 1164 

01,2475 

3 0117 

0 

RIB 

CA 

PCLIai 



2364 

REP 

5 

lAST T31 

01,2476 

0 4560 

0 


TC 

aiCALL 

-1 

SO A 6TC Oa PRCM ROUTINE LEADS TO DANZIG 

2365 

REP 

634 

LAST 1160 

01,2477 

10 154 

0 

BHIZ 

CCS 

MPAC 



2366 

REP 

53 

LAST 1163 

01,2500 

1 6030 

0 


TCP 

DANZIO 



236T 

REP 

T 

LAST 1163 

01,2501 

i 6615 

1 


TCP 

GOTO 



2368 

REP 

54 

LAST 1165 

01,2502 

1 6030 

0 


TCP 

DANZIG 



2369 

HEP 

8 

LAST 1165 

01,2503 

1 6615 

1 


TCP 

GOTO 



2370 

REP 

9 

LAST 1153 

01,2504 

10 121 

1 

BOVCB) 

CCS 

OVPIND 


BRANCH CN OVERFUW TO BASIC OH INTERP. 

2371 




01,2505 

1 2507 

0 


TCP 

*2 



2372 

HEP 

55 

LAST 1165 

01,2508 

1 6030 

0 


TCP 

DANZIG 



2373 

REP 

10 

LAST 1165 

01,2507 

54 121 

1 


T3 

OVPIND 



2374 

REP 

• 38 

LAST 1165 

01,2510 

10 020 

1 


CCS 

CYR 



2375 

REP 

1 


01,2511 

1 2475 

1 


TCP 

RIB 


IP BASIC. 

2376 




01,2512 

00360 

1 

BsTCBg 

OCT 

380 



2377 

HEP 

9 

LAST 1165 

01,2513 

1 6615 

1 


TCP 

GOTO 
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2378 REP 

2379 RBP 

2380 US' 

2381 RBP 

2382 RBP 


LAST 1165 
last 1159 

last 1185 

LAST 1165 

last 1166 


REP 7 last 1166 

I®P 58 last 1166 
US' 59 LAST 1168 
REP 11 LAST 1166 


REP 8 LAST 1166 
REP 12 last 1168 
REP 13 LAST 1166 
REP 60 LAST 1166 


REP 41 LAST 1166 
RBP 1 


2396 REP T LAST 357 

2397 REP T LAST 1163 

2398 REP 33 LAST 1164 

2399 REP 19 LAST 1152 

2400 REP 2 LAST 1163 


USER.S PAGE NO. 90 


01,2514 


01,2515 0 6672 1 
01,2518 1 6030 0 


01,2517 1 6615 1 

01,2520 1 6030 0 


10 020 1 BzB/OOrO CCS 

0 6672 1 TC 

1 6030 0 TCP 

1 6615 1 TCP 

1 8030 0 TCP 


CYH 

Branch 

danzio 

goto 

danzio 


SEE DHICH OP-CODE IS DESIRED 
DO BzE. 


DO GOTO. 


2363 REP 40 LAST 1168 

2384 REP 1 

2385 


01.2521 10 020 1 BPL/B!+I CCs 

01.2522 1 2530 1 TCP 

01.2523 12000 1 SBlO DEC 


ailPTS OP CODE IN SWITCH INSTROCTICN ADR 


01.2524 0 6672 1 

01.2525 1 6030 0 

01.2526 1 8030 0 

01.2527 1 6815 1 


Branch 

DANZIO 

danzio 

ooro 


CNLY IP NNZ. 


01.2530 0 6672 1 BpL 

01.2531 1 6615 1 

01.2532 1 8615 1 

01.2533 1 6030 0 


Branch 

OOTO 

ooro 

danzio 


IP POSITIVE OR zero. 


01.2534 10 020 1 CALL/ITA CCS 

01.2535 1 6607 1 TCP 


01,2538 0 5640 0 

01,2537 0 2454 0 

01.2540 50 120 1 

01.2541 3 005 2 0 

01.2542 1 2414 0 


CC91CLE 

15 ADRERS 

PIXLOC 

OPRBT 

MSTOBEi 


STORE OPRET. (TAGSUB APIEH 15 ADHERS IS 
axw IN THIS CASE, BUT SAVES STORAGE.) 


I 


1 
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mSSPRBlSR 

THB POLLOWINQ OPBHATllI'S ABS AVAILABLE FOB ALTERING AND TESTING INTERPRETIVE WIKSIES 


P2401 

112403 

00 

82404 

01 

82405 

02 

82400 

03 

8240T 

04 

82408 

05 

82409 

00 

82410 

or 

82411 

10 

82412 

11 

82413 

12 

82414 

13 

82415 

14 

82418 

16 

B241T 

82419 

82420 

82421 

82422 

82424 

ADI 

2428 

BB 

242T 

m 

2428 

BB 

2429 

REI 

2430 

REI 

2431 

8BI 

2432 

2433 

BEI 

2434 

DEI 

2435 

2436 

RE 

243T 

RE 

2438 

BE 


BCNSET 

SETGO 

BOFSET 

set 


fflT A WITCH AND DO A GOTO IP IT WAS (N. 

SET A WITCH AND DO A GOTO. 

fflr A WITCH AND DO A GOTO IP IT WAS QFP 

wta witch. 


BONINV 

INVGO 

BOPINV 

invert 


BOaEHT A WITCH AND BBANOI IP IT WAS CN. 
EfVEBT A WITCH AND DO A GOTO. 

MVBHT A WITCH AND BRANCH IP IT WAS OFP 
M^ERT A WITCH. 


BONCLR 

CLROO 

BOPCLR 

CLEAR 


OJBR A WITCH AND BRANCH IP IT WAS CN. 
ams A WITCH AND DO A GOTO. 
ttSBR A WITCH A® BRANCH IP IT WAS OFP. 
OLEAR A WITCH. 


bon WWCH ip a WITQI was CN. 

Bfpp WWCH IP A WITCH WAS OFP. 

the address supplied «nsa the witch insttaxitich is interpreted as pollcvts 


bits 1-4 WITCH BITSOTSER <l-15). 

' bits 5-8 WITCH 05;EaATn:a< nij«er. 

BITS 9- WITCH WCEO i»M>EB (UP TO 64 WITCH WORDS) . 

^ /irr.np« TTSELP tS JWDffl UP BV THE YUL SYSIEX ASSB«IER. THE BRANCH INSTTAJCTIOCS REOUIHE TWO 

«™RE^ ^ ^tS^^T-IN WSIT 

— .. , airnOIES CAP LCW4 LEAVE THB WITW Bir wnii 


LAST 9T7 
LAST 1165 
LAST 1164 
LAST 1151 


01,254 3 3 «21 1 

01,2544 T ®11T 1 


01.2545 

01.2546 

01.2547 


5S aaa i 
3 4CT4 0 
S« 131 0 


WITCHES CAP 
HAW 
INDEX 
CAP 
TS 


LCW4 

POLIW 

A 

BIT15 

WBIT 


(NLMiER PRCM LEPT TO HKHT.) 


51 LAST' 1067 
38 LAST 1167 


01.2550 3 «r(M 0 

01.2551 • ««I» 1 
01,255 2 T ®11T 1 
01,255 3 S4 13» 1 


CAP BIT7 

EXTEND 

HP POLISH 

TS SWWCED 


leave the witch number in sword. 


320 LAST 1167 
49 LAST 798 
‘ 273 LAST 1164 


01.2554 • WCMh 0 

01.2555 5» am 1 

01.2556 3 «M4 1 

01.2557 54 BfflZ 1 


INHINT 
INDEX A 
CA STATE 

TS Q 


during witch CKANC® so BUPT can use TOO 
LEAVE THE WITCH WORD ITSEIJ' IN L. 


O WILL BE USED AS A CHANNEI, 


I 


■ 

I 
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2439 

REP 

31 

last 1037 

2440 



2441 

REP 

37 

last 1167 

2442 

REP 

1 

2443 

REP 

321 

last 1167 

2444 



2445 

REP 

2 

last 1167 

2446 



2447 

REF 

1 


2448 

REP 

1 


2449 

REP 

3 

last 1188 

2450 



2451 

REP 

2 

last 1188 

2452 

REP 

2 

last 1168 

2453 

REP 

4 

last 1168 

2454 

REP 274 

last 1167 

2455 

RBP 

2 

last 1167 

2456 

REP 

50 

last 1167 


01,2560 

3 4700 1 


CAP 

BITll 

01,2561 

•0 0008 1 


BxTBm 

01,2562 

7 0117 1 


HP 

POLISH 

01,2563 

7 2623 0 


MAaC 

B 3 TOB 4 

01,2564 

50 000 1 


INDEX 

A 

01,2565 

1 2566 1 


TCP 

♦1 

01,2566 

3 0131 1 

+1 

GA 

swbit 

01,2567 

0 0006 1 


EXTEND 


01,2570 

04 002 1 


RQR 

OCHAN 

01,2571 

1 2600 1 


ICP 

SWSTORE 

01,2572 

3 0131 1 

+5 

CA 

swbit 

01,2573 

0 0006 1 


Exrero 


01,2574 

06 002 0 


IWOR 

OCHAN 

01,2575 

1 2600 1 


TCP 

SWSTORE 

01,2576 

4 0131 0 

♦ 9 D 

CS 

3»BIT 

01,2577 

7 0002 1 


MAac 

0 

01,2600 

50 130 0 

aVSTORB 

INDEX 

swwcno 

01,2601 

54 074 0 


TS 

STATE 




USRUS PAOB NO. 92 B3 S3 

di»>atqi saitcm bit opkmtion as in bits 

T -8 OP POLISH. 

OBTS 4X2-BIT CQDB. 

00 - set switch in QuesTICN. 

01 - INVERT SWITCH. 

10 - CLEAR. 

NEW SWITCH WORD. 
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L mespRBieR 


2457 




01,2802 

0 0003 

1 

*13P 

2458 

BHE 

41 

LAST 1004 

01,2803 

3 4676 

1 


2459 




01,2604 

0 0006 

1 


2460 

BEP 

3S 

LAST 1188 

01,2605 

7 0117 

1 


2461 

REP 

2 

LAST 1188 

01,2606 

7 2623 

0 


2482 

REP 322 

LAST 1168 

01,2607 

50 000 

1 


2463 




01,2810 

1 2611 

1 


2464 

REP 275 

lAST 1168 

01,2811 

4 0002 

1 

♦1 

2465 

REP 

5 

LAST 1168 

01,2612 

7 0131 

0 

TEST 

2466 

REP 

323 

LAST 1169 

01,2613 

10 000 

0 


2467 

REP 

1 


01,2614 

1 2624 

1 


2468 

REP 

1 


01,2615 

1 6664 

1 

♦5 

2469 

REP 

2 

LAST 1169 

01,2816 

1 2624 

1 


2470 

REP 

a 

LAST 1166 

01,2817 

0 5640 

0 


2471 

REP 

9 

LAST 1169 

01,2620 

0 5640 

0 


2472 

REP 276 

LAST 1169 

01,2621 

3 0002 

0 

*gP 

2473 

REP 

1 


01,2622 

1 2612 

1 


2474 




01,2623 

00014 

1 

B 3 TQB 4 

2475 

REP 

27 

LAST 1100 

01,2624 

24 164 

1 

sjracip 

2476 

REP 

1 


01,2543 



»r/ 

2477 

REP 

61 

LAST 1166 

01,2625 

1 6030 

0 

+ 13 D 
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RELINT 

CAP 

BIT13 

11 - NOOP. 

Exraro 


dispatch SEOUCE CHANGING OB BRANCHING 

HP 

POLIai 

CODE. 

MASK 

B 3 TCB 4 


INDEX 

A 


TCP 

+1 

ORIOINAll,y STORED IN BITS 5-6- 

CS 

0 

00 - Branch ip cm. 

MAaC 

SAflIT 


CCS 

A 


TCP 

SNSKIP 


TCP 

SNBHANCH 

01 - GO TO. 

TCP 

SASKIP 

HEBE CNLY CN BIT 15. 

TC 

CCSHOLE 


TC 

CCaiOLE 


CA 

0 

10 - Branch ip ofp. 

TCP 

TEST 


OCT 

0014 


inch 

IXC 


ecuals 

amcHEs 


TCP 

DANZIG 

11 - NOOP. 


AssaeLB HEVISKW 2*3 op aoc pboomm colossus By KASA 2021111-041 
L nxED-PIXH) CONSWNT POOL 

*““* BLOQc 02 

00015 WO' 1 

COUNT 02/POCN3 

BOOOlO 1* POLLOriNO WBLB OK ig vAUBs IS INDByBO. DO NOT INSERT OR BBiCVE ANY QUANTITIES. 
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0002 

0003 

0004 HEP g lAST 1157 


0007 

^008 

E0009 

0010 

0011 

0012 

0013 

0014 

0015 
0010 
OOIT 
0018 

0019 

0020 
0021 
0022 

0023 

0024 
H0025 

0027 

0028 

40029 

40030 

40031 

40032 
0033 

40034 

0035 

40036 

40037 
00375 

40038 
0039 

40040 
00401 

40041 


46T1 

4672 

37777 1 
37777 1 

DPOS41X 

POS4AX 

OCT 

(ET 

37777 

37777 

4673 


limits 

= 

NBOi /2 

4673 

57777 1 

NBOi /2 

OCT 

-20000 


bit table 


HIST PRECEDE POSMAx 


US® BY SIN ROUTINE (MUST BE TWO 
LCCATICNS in front op BIT14) 


4874 

4875 

4676 

4677 

4700 

4701 

4702 

4703 

4704 

4705 
4708 
4707 
4T10 

4711 

4712 


40000 0 
20000 0 
10000 0 
04000 0 
02000 0 
01000 0 
00400 0 
00200 0 
00100 0 
00040 0 
00020 0 
00010 0 
00004 0 
00002 0 
00001 0 


■wv UUUUI 0 

DO NOT DESTROY THIS CCM3INATICN, SINCE 

4713 77777 0 

4714 00000 1 


4715 00005 1 

4716 00007 0 

4334 

4717 00013 0 

4720 00015 0 


BIT15 

BIT14 

BIT13 

BHT2 

BITll 

BITio 

BIT9 

bits 

BITt 

bitb 

bits 

BIT4 

bits 

BIT2 

BITT 


OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 

OCT 


40000 

20000 

10000 

04000 

02000 

01000 

00400 

00200 

00100 

00040 

00020 

00010 

00004 

00002 

00001 


BH' 6 last 369 


IT IS USED IN DOUBLE PRECISICN 
NBGo OCT -0 

2BRO OCT 

BITi OCT 

NO.WOS OCT 

OC1AL3 OCT 

R3D1 OCT 

FIVE OCT 

HEvCNT OCT 

SBVHR OCT 

BIT4 OCT 

R2D1 OCT 

ocni 

bincxk dec 

BLBvBf DEC 

OCT14 OCT 

OCTls (XIT 

RlDi OCT 


0 

00001 

2 

3 

4 

5 

6 
7 

00010 

11 

R2D1 

10 

11 

14 

15 

16 


instrlCticns. 

mST PRECEDE 2ERO 
MUST FOLLOW NEGo 

interpreter 

INTERPRETER 

PINBALL 

interpreter 


PINBALL 

P20S 

PINBALL (OCTAL 12) 

AIARM and ABORT (FILLER) 
PINBAU. 
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FIXHJ-PIXBD OOHSBWT POOL 


USlkS PAGE NO. 


Bo S3 


0043 

4721 

00017 1 

1X344 

OCT 

17 



A0044 



BI15 

OCT 

00020 



A0045 



«Dl 

OCT 

21 

PINBALL 


A0046 



VDi 

OCT 

23 

PINBALL 


A0047 



OCT24 

OCT 

24 

service ROmNES 


A0048 



M>1 

OCT 

25 

PINBALL 


00485 

4722 

00030 1 

BITS4d5 

OCT 

30 



A0049 



OCT31 

OCT 

31 

ffiRVIC® ROUTINES 


0050 

4723 

00032 0 

CALLCO* OCT 

00032 ' 



A0051 



1X3*5 

OCT 

37 

PINBALL 


A0052 



330BC 

DEC 

33 

PINBALL 

(OCTAL 41) 

A0053 



34DBC 

DEC 

34 

PINBALL 

(OCTAL 42) 

0054 

4724 

00045 0 

IBUIUIFX DEC 

37 

BUILDUP FOR CCNVIENCE IN DAPIESTING 

0055 

4725 

00046 0 

TDeCAWX DEC 

38 

CCNVENieiCE POR DAPTESTINQ 

A0056 



bits 

OCT 

00040 



0057 

4726 

00050 1 

OCT50 

OCT 

50 



0058 

4727 

00055 1 

DEC 45 

DEC 

45 



0059 

4730 

00060 1 

SUPBBoil 

OCT 

60 

bits POR SUPEHffilK 

setting on. 

0080 

4731 

00062 0 

.5SEC 

DEC 

50 



Aooei 



Bin 

OCT 

00100 



0062 REP 52 LAST 1167 

4704 


SUPBRioo 

- 

Bin 

BITS POR SUPEKINK 

SETTING 100 

Aooaa 






(LAST 4K CP ROPE) 


0004 

4732 

00120 1 

SUPERiOI 

OCT 

120 

bits POR superbnk 

SETTING 101 

A0085 



OCT121 

OCT 

121 

ffiRVICE RCUTINES 


Aoose 






(FIRST 8K OP ACM) 


0067 

4733 

00140 1 

SUPBRllO 

OCT 

140 

bits for superbnk 

setting no. 

A0068 






(LAST 8K op ACM) 


0069 

4734 

00144 0 

ISEC 

DEC 

100 



A0070 



LOrr 

OCT 

177 

interpreter 


A0071 



BIT 8 

OCT 

00200 



A0072 



Or215 

OCT 

215 

ALARM AND ABORT 


A0073 



8,5 

OCT 

00220 

P20-P25 SUNDANCE 


0074 

4735 

00310 0 

2SECS 

DEC 

200 



A0075 



LC3*e 

OCT 

377 

pinball 


A0076 



BIT9 

OCT 

00400 



0077 

4736 

00401 1 

GN/CCODE 

OCT 

00401 

SET S/C CCNTRCL SWITW TO G/N 

0079 

4737 

00454 1 

3secs 

DEC 

300 



0080 

4740 

00620 0 

4secs 

DEC 

400 



00801 

4741 

00777 0 

1X3*9 

OCT 

777 



A0081 



BITlO 

OCT 

01000 



A0082 



5 . 5 DBGS 

DEC 

,03056 

P20-P25 SUNDANCE 

(OCTAL 00765) 

A0083 



OCT1103 

OCT 

1103 

AMRM AND ABORT 


0084 

4742 

01124 1 

C 5/2 

DEC 

.0363551 


((X5TAL 01124) 

0085 

4743 

01211 1 

V05N09 

VN 

0509 

(SA)* AS OCTAL IZID 

0086 

4744 

01400 1 

OCT1400 

OCT 

01400 



00865 

4745 

01428 0 

VO 6 N 22 

VN 

0622 



A0087 



MID 5 

OCT 

1740 

PINBAlXx 


00875 

4746 

01776 0 

BITS2-10 

OCT 

1776 



0088 

4747 

01777 1 

1X3*10 

OCT 

1777 






1 

m 
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A0089 

A0090 

0091 

0092 

0093 

0094 
A0095 
A0096 
A0097 

0098 

0099 

0100 

A0102 

A0103 

A0104 

0105 

A0106 

0107 

0108 
A0109 

0110 

0111 

A0112 

0113 

0114 
A0115 
AOllS 

0117 

01175 

01176 REP 1 

0110 

0119 

0120 
A0121 
A0122 

0123 

0124 

0125 
A0126 
A0127 

0128 

0129 

0130 

0131 

0132 
A0133 

0134 

0135 




BITll 

OCT 

02000 



2K+3 

OCT 

2003 

4750 

0217T 1 

LOin+2K 

OCT 

2177 

4751 

02400 1 

ffiAMa 

OCT 

02400 

4752 

03000 1 

PRI03 

OCT 

03000 

4753 

03400 0 

E8ANK7 

OCT 

03400 



lorii 

OCT 

3777 



BIT12 

OCT 

04000 



RELTAB 

OCT 

04025 

4754 

05000 1 

PRIO5 

OCT 

05000 

4755 

06000 1 

PRIOB 

OCT 

06000 

4758 

07000 0 

PRIOr 

OCT 

07000 



BIT13 

OCT 

10000 




OCT 

10003 



13,7,2 

(X)T 

10102 

4757 

11000 1 

PHlOll 

CCt 

11000 



PHIO12 

OCT 

12000 

4760 

13000 0 

PRIO13 

OCT 

13000 

4761 

14000 1 

PRIO14 

OCT 

14000 




OCT 

14031 

4782 ■ 

15000 0 

PRIO15 

OCT 

15000 

4763 

16000 0 

PRIOlS 

OCt 

16000 



850003 

DEC 

.45556 

4764 

17000 1 

PRIO17 

OCT 

17000 

4765 

17770 1 

OOT17770 OCT 

17770 



BHT4 

OCT 

20000 




OCT 

20033 

4766 

21000 1 

PRI021 

OCT 

21000 

7657 



block 

03 




COUNT 

03/PC(NS 

7657 

22000 1 

PRIO22 

OCT 

22000 

7660 

23000 0 

PRIO23 

OCT 

23000 

7661 

24000 1 

PRI024 

OCT 

24000 



5/8<-l 

OCT 

24001 




OCT 

24017 

7662 

25000 0 

PRIOas 

OCT 

25000 

7663 

26000 0 

PRI026 

OCT 

26000 

7664 

27000 1 

PRIO27 

OCT 

27000 



Qirprio 

OCT 

30000 




OCT 

30036 

7665 

31000 0 

PRIO31 

OCT 

31000 

7666 

31103 1 

Cl/2 

DEC 

.7853134 

7667 

32000 0 

PRIO32 

OCT 

32000 

7670 

33000 1 

PRIO33 

OCT 

33000 

7671 

34000 0 

PRIO34 

OCT 

34000 




OCT 

34034 

7672 

35000 1 

PRIO35 

OCT 

35000 

7673 

36000 1 

PRIO36 

OCT 

36000 


imUS PACE NO. 3 Eo S3 
PINBAIL 

OP CCBB HASK <• BANK 1 FBANK SEXTINO. 

PINBALL 

T4ajPr 

T4ajPT RBLTAB +iD 

P20-P25 SUNDANCE 

BAJ8<CALL 

T4ajPT HELTAB +20 

P20-P25 SUNDANCE (OCTAL 16450) 

T4IIIPT RK^TAB +3D 

SERVICE RCUTINES 

SINGLE PRECISICN SUBRCWINES 
T4flUPT RELTAB +40 

pinball 

T4ftR>T RELTAB +5D 

(OCTAL 31103) 

T4aiPT REl,TAB +60 
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013S 

7674 

37000 

0 

PRI03T 

OCT 

37000 


013T 

. 7675 

37401 

0 

63/64*1 

OCT 

37401 


Ao13B 




MIDI 

OCT 

37600 

PINBALL 

0139 

7676 

37766 

1 

OCT3TT68 

OCT 

37766 


0140 

7677 

37774 

1 

(X?r37774 

OCT 

37774 


0141 

7700 

37776 

0 

OCr37776 

OCT 

37776 


A01411 




Dpoawx 

OCT 

37777 


A0142 




BIT15 

OCT 

40000 


A0143 




OCT40001 

OCT 

40001 

INTERPRETER ( CS 

0144 

7701 

40014 

0 

DUADCOJ 

OCT 

40014 


0145 

7702 

40015 

1 

DUAD* 

OCT 

40015 


A0146 





OCT 

40023 

T4I6JPT RBLTAB 

01465 

7703 

40040 

1 

BIT15*6 

OCT 

40040 


01466 

7704 

40200 

1 

OCr40200 

OCT 

40200 


A0147 





OCT 

44035 

T4aJPT RBLTAB . 

A0148 





OCT 

50037 

T4RUPT RBLTAB 

A0149 





OCT 

54000 

T4HUPT RBLTAB 

01495 

7705 

57777 

1 

-8IT1.4 

OCT 

57777 


A0150 




HBLTABii 

OCT 

60000 

T4HJPT 

0151 

7706 

65552 

0 

C 3/2 

DEC 

-.3216147 


0152 

7707 

70000 

0 

13,14,15 

OCT 

70000 


0153 

7710 

73777 

1 

- 1/8 

OCT 

73777 


0154 

7711 

74000 

1 

HIGH 4 

OCT 

74000 


0155 

7712 

74056 

1 

-ENDERAS 

DEC 

-2001 


A0156 




HI 5 

OCT 

76000 

PINBALL 

0157 • 

7713 

77700 

0 

HIGH9 

OCT 

77700 


Aoisa 




-ENDVAC 

DEC 

-45 

INTERPRETER 

A0159 




-ocno 

OCT 

-10 


A0161 




NBCU 

DEC 

-4 


0162 

7714 

77774 

0 

NEa3 

DEC 

-3 


0163 

7715 

7777S 

1 

NBaz 

OCT 

77775 


0164 

7716 

77776 

1 

NEGCNE 

DEC 

-1 



(OCWL 65552) 


(OCWI, 74056) 


(OCTAL 77722) 
(OCT 77767) 
(OCTAL 77773) 


1 


I 
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III 


USRaS PAGE NO. 5 


Bo S3 


P0165 

DEPINH) by EQUALS 

aoi66 

IT WOULD BE TO HE 

1(0168 

accidental DEPINITI 

0169 

REP 

5 

last 330 

0170 

REP 

28 

last 1134 

0171 

HEP 

75 

last 1079 

0172 

REP 

43 

last 1059 

0173 

REP 

1 


0174 

REP 

41 

last 1103 

0175 

REP 

32 

last 1045 

0176 

REP 

2 

last 1083 

0177 

REP 

17 

last 1154 

0178 

REP 

39 

last 1051 

0179 

REP 

7 

last llTO 

0180 

HEP 

3 

last 381 

0181 

HEP 

9 

last 1030 

0182 

REP 

18 

last 902 

01825 

REP 

2 

LAST 370 

0183 

HEP 

36 

last 1130 

0184 

HEP 

7 

last 1164 

0185 

HEP 

32 

last 1168 

0186 

REP 

1 


0187 

REP 

1 


0188 

REP 

33 

last 1174 

0189 

HEP 

34 

last 1174 

0190 

HEP 

30 

last 1043 

0191 

REP 

2 

last 496 

0192 

REP 

42 

last 1169 

0193 

HEP 

43 

LAST 1174 

01935 

REP 

1 


0194 

HEP 

23 

last 1160 

0195 

HEP 

69 

last 1161 

0196 

REP 

70 

last 1174 

0197 

REP 

5 

LAST 380 

0198 

REP 

13 

LAST 1101 

01985 

REP 

3 

last 1086 

0199 

REF 

8 

LAST 1071 

0200 

REP 

47 

last 1167 

0201 

REP 

48 

last 1174 

0202 

REP 

1 


0203 

REP 

3 

last 538 

0204 

REP 

5 

last 328 


TT18 

7718 

4712 

4711 

8214 

6214 

4710 

6211 

4716 
4707 
4334 
4377 

4717 
4374 
4376 
4701 
4744 
4700 

4732 

4733 
4700 
4700 
4677 
4752 
4676 
4676 
7632 
4675 
4675 
4675 
4371 
4371 
6440 
7671 
4674 
4674 
6056 
4105 
4364 


HlNUSl 

NEOi 

are 

TVfO 

THREE 

L0W2 

POUR 

SIX 

LOi»3 

bight 

NINE 

T0I 

NOincai 

OCT23 

OCT25 

PRIOi 

EHAN1C3 

PRIO2 

ocn2o 

ocri40. 

2K 

BBANK4 

PRICH 

EBANK6 

OUAHIER 

PRIOio 

OCTlOOOl 

POSl/2 

PHIO20 

half 

PRIO30 

B ITT 3-14 

OCT30002 

H12T14 

NBa-Mx 

VLCftDCOD 

VtXMD4 

ocreoooo 

bankmask 


NBQl 

NBoare 

BITl 

BIT2 

OClftLs 

THRHB 

BIT 3 

RBVCNT 

SEVEN 

BIT 4 

R2 Di 

binccn 

HEVBI 

VDi 

EDi 

BITio 

OCT1400 

BITll 

SUPERlOl 

SUPBRllO 

BITll 

BITll 

BIT 12 

PRIQ3 

BIT13 

BIT! 3 

CCSL 

HAIE 

BITT4 

BITTA 

CHHPRIO 

PRIO30 

TLOAD *1 

PRIO34 

BIT15 

BITis 

OCT40001 

RELTABii 

HI 5 


interpreter USES IN PROCESSING STORECODB 
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WtEBPHBTIVB 

CONSTANTS 






U93WS PAGE NO. 

1 

Bo 33 

0001 

BBP 

1 

26,2000 




«1UC 

INTPRBTl 




0002 



26,3321 




BAm 





0003 

IHP 

1 





COUNT 

23/ICCKS 




0004 



26,3321 

10000 

0 

DP1/4TH 

zoec 

.25 




0004 



26,3322 

00000 

1 







0005 



26,3323 

00000 

1 

wm 

gyec 

0 




0005 



26,3324 

00000 

1 







0000 



26,3325 

00000 

1 

UNITY 

sec 

0 




0000 



26,3326 

00000 

1 







OOOT 



26,3327 

20000 

0 

UNITY 

2pec 

.5 




OOOT 



26,3330 

00000 

1 







0006 



26,3331 

00000 

1 

2PRCVECS 

sec 

0 




0006 



26,3332 

00000 

1 







0000 



26,3333 

00000 

1 


sec 

0 




0009 



26,3334 

00000 

1 


sec 





0010 



26,3335 

00000 

1 


0 




0010 



26,3336 

00000 

1 







0011 

BBP 

7 LAST 872 26,3327 



DPHALP 

= 

UNITK 




0012 



26,3337 

37777 

1 

DPPOS4AX OCT 

37777 




0013 



26,3340 

37777 

1 


OCT 

37777 






P0014 

0015 

0018 
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HEP 


OOIT HEP 

0018 

0018 

0019 

0019 

0020 
0020 
0021 
0021 
0022 
0022 
0023 

0023 

0024 

0025 

0026 
002T 

0027 

0028 
0028 

0029 REP 

0030 REP 


5 lAST 722 
3 last 32 


04,2000 

04,3447 


04,3447 

04.3450 

04.3451 

04.3452 

04.3453 

04.3454 

04.3455 

04.3456 

04.3457 

04.3460 

04.3461 

04.3462 

04.3463 

04.3464 

04.3465 

04.3466 

04.3467 

04.3470 

04.3471 
04,3455 
04,3453 


®TLOC INTPRET2 
BAJ4C 

OXKT 14/ICCN3 


00000 1 
00000 1 

ajNIT 

2DBC 

0 

00000 1 
00000 1 

YUNIT 

2DBC 

0 

20000 0 
00000 1 

XUNIT 

2Dec 

.5 

00000 1 
00000 1 

ZBRCXrtiC 

2Dec 

0 

00000 1 
00000 1 


^KC 

0 

00000 1 
00000 1 


2DBC 

0 

77777 0 


OCT 

77777 

77771 0 

DEC-e 

DEC 

-6 

77763 0 

DEC_i2 

DEC 

-12 

37777 1 
37777 1 

LCDPMAx 

20CT 

3777737777 

37777 1 
37777 1 

LODPHAxi 

20CT 

3777737777 


zerqdp 

= 

^RCVEC 


HALEDP 

= 

XUNIT 


-0,-6, -12 HIST RPMAIN IN THIS ORDER 

THESE TWO CCNSIANTS HIST REMAIN 
ADJACENT AND THE SAJK POR INTEGRATICN 
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]U SINCLB PRECISION SlftlDUTIlSS 

0001 AT6T 

R0002 SINOIE precision SINE AND COSINE 


BUXK 02 


USER-S PAOB NO. 1 


00025 

REP 

1 





0003 

REP 

24 

LAST 1174 

4T6T 

6 467S 1 

SPCOS 

0004 

HEP 

1 


4T70 

55«075 0 

SPSIN 

0005 

HEP 

1 


4TT1 

1 4773 1 


0000 

REP 

2 

LAST 1177 

4TT2 

4 1075 0 


OOOT 




4TT3 

6 0000 1 

SPT 

oooa 

HEP 

3 

LAST 1177 

4TT4 

S5«075 0 


0009 

HEP 

1 


4T75 

1 5006 0 


0010 

REP 

4 

LAST 1177 

4TT6 

57-075 1 


0011 

REP 

5 

LAST 1177 

4TT7 

51-075 1 


0012 

REP 

6 

LAST 1103 

5000 

6 4673 1 


0013 




5001 

4 0000 0 


0014 

REP 

6 

LAST 1177 

5002 

6 1075 1 


0015 

REP 

T 

LAST 1177 

5003 

55-075 0 


0016 

REP 

2 

LAST 1177 

5004 

1 5006 0 


OOIT 

REP 

1 


5005 

1 5024 0 


0018 




5006 

0 0006 1 

PCLLEY 

0019 

REP 

8 

LAST 1177 

5007 

7 1075 0 


0020 

REP 

1 


5010 

55-076 0 


0021 




soil 

0 0006 1 


0022 

REP 

1 


5012 

7 4742 0 


0023 

HEP 

1 


5013 

8 7706 1 


0024 




5014 

0 0006 1 


0025 

REP 

2 

LAST 1177 

5015 

7 1076 0 


0026 

HEP 

1 


5016 

6 7666 0 


602T 




5017 

0 0006 1 


0028 

BSP 

9 

LAST 1177 

5020 

7 1075 0 


0029 




5021 

20 001 1 


0030 

REF 

10 

LAST 1177 

5022 

55-075 0 


0031 

REP 

277 

LAST 1169 

5023 

0 0002 0 


0032 

REF 

324 

LAST 1169 

5024 

50 000 1 

ABG 90 

0033 

REP 

7 

LAST 1177 

5025 

4 4673 0 


0034 

REF 278 

LAST 1177 

5026 

0 0002 0 


R0040 



SPROOT WAS DELETED : 

IN REV 51 OP MASTER 


cam 

02/inter 

AD 

HALF 

TS 

TE«C 

TCP 

SPT 

CS 

TSMC 

DOUBLE 


TS 

TSNK 

TCP 

PCLLBY 

xW 

TEMC 

INDEX 

TB4C 

AD 

LIMITS 

CCM 


AD 

TEMC 

TS 

TE«C 

TCP 

POLLEY 

TCP 

ARD 90 

Extend 


MP 

TPMC 

TS 

SO 

Exra® 


MP 

C 5/2 

AD 

C 3/2 

EXTEND 


MP 

SO 

AD 

Cl/2 

Exrero 

MP 

TEHC 

docubl 

TS 



TC 0 

INDEX A 
CS LIMITS 

TC O 

ASS. CCNT. HAS CARDS. 


AHDIPBITS SCALED AT PI 


RESULT SCALED AT 1 


EO S3 


1 

1 



I 


Ill 
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BiBCurive 
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0001 

1(0002 

0002s 

00029 

0003 
00031 

0004 

0005 
0000 
OOOT 
0008 

0009 

0010 

0011 

"0012 

0014 
00145 1 

0015 

0016 I 
OOIT 
0018 1 

0019 I 

0020 1 
0021 i 

B00211 

R00212S 


20>35 OCT. 28.1968 SATBAp .qot PAOB me 
USEkS MOB NO. 1 Ko S3 




^ 502T BLOQc 02 

TO ©riBR A JOB BEOEst BEQUIBINO NO VAC Ai®l • 


LAST 411 


279 last liTT 


1 

1 

24 

1 

1 


last 1120 


5027 

5030 

5031 

5032 

5033 

5034 

5035 

5036 

5037 

5040 

5041 


0 0004 0 NOVAC 


COUNT 02/BXBC 
INHINT 


0 0006 
5 0002 
3 0001 
52 066 
3 5120 
56 004 
54 061 
1 2650 


0 

AD 

FAkEPRET 

0 

TS 

NEWPRIO 

1 

extbto 


0 

INDEX 

Q 

0 

DCA 

0 

0 

DxCH 

NEWLOC 

1 

. CAF 

execbank 

0 

XCH 

pbank 

1 

TS 

EXECTH41 

1 

TCP 

NOVAC 2 


LOCCMPAC _ LOC(OPRET) 

pbiobity op ler jcb + novac C(fixloc) 

O WILL Be ONDISIUBBED THBOUGHOUT 
2CADH OP JOB eOEHBD. 


B4TBB ElxECUnvB BANK. 

TO BHER A JOB bKAEST BEOIIBING A vAC AREA - E.O., ALL (PARTIAILY) INTERPWriVE JCBS. 

FMVAC 


280 

2 

2 

25 

1 


last 1178 
last lira 
last 1178 

last 1178 
last 1178 


5042 

5043 

5044 

5045 

5046 

5047 

5050 

5051 

5052 


0 0004 
54 063 
0 0006 
5 0002 
3 0001 
52 066 
3 5120 
56 004 

1 2626 


SPVACIN 


INHINT 

TS NEWRIO 

Extend 
INDEX O 
0 

NEWLOC 

Execbank 

PBANK 
FINDVAC 2 


DCA 

DxCH 

CAF 

XCH 

TCF 


00213 

60214 

00215 

00216 

1(0022 

0024 

0025 

0026 
0027 

1(0030 

0031 

800315 


tBP 281 
HBF 5 

BBP 282 
BEP 1 


I®' 283 
PEP 3 
BBP 20 
HEP 1 


OFF TO ExEnurivE SWITCHED-BANK 
TO BITER A FINIVAC WITH THE PRIORITY IN NB«.RIO TO THE 2CADR ARRIVING LN A AND L> 

users op spvac hist inhint before storing in NEWPRIO. 

last 1178 
last 1020 
last 1178 


5053 

56 002 

0 SPVAC 

XCH 

5054 

6 7715 

0 

AD 

5055 

56 002 

0 

XCH 

5056 

1 5047 

0 

TCF 


Q 

NEG2 

0 

SPVACIN 



TO SUSPEND A BASIC JOB SO A HIGHER PRIORITY JOB MAY BE SERVICH)' 

CHANGi 


last 1178 
last 1178 
last 1100 


5057 

5060 

5061 

5062 


22 002 0 
3 5120 1 
56 006 1 
1 2727 0 


TO &1SPEND AN INTERPRETIVE JOB* 

HEP 28 MST 1169 5063 4 0164 0 CHANG2 

ITEACE (4) REFERS TO ACHANG2S. 


LXCH 

CAF 

X(H 

TCF 


Cs 


0 

execbank 

BBANK 

CKANJQB 


LOG 


negative 1.0c SHOWS JOB = INTERPRETIVE. 
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EXECXn'IVB 


USRaS PACE NO. 2 Ko S3 


0032 

REP 

196 

LAST 1157 

5064 

54 001 

1 

TS 

L 

0033 

REP 

4 

LAST 1178 

5065 

3 5120 

1 *2 

CAP 

EXECBAI*: 

00335 

REP 

21 

LAST 1178 

5066 

54 006 

0 

TS 

BBAWC 

0034 

REP 

2 

lAST 1178 

5067 

1 2726 

1 

TCP 

CHANJQB -1 


I 



1 


11 


ASSBBLB RBVISKW 249 CF AOC PtWGWW CQUMa;s By NASA 2021111-041 20>35 OOT. 28,1968 SATOAP .OOT PAGE U80 

USBa«S PAOB NO. 3 BO S3 

TO VOUKWRILY SUSPB4D A JCB UNTIL THE CCMPLETICN OP SO* ANTICIPATHD EVENT (I/O BvB(T ETC.)’ 

last iiT8 
last 11T9 




P003S 

0037 

REP 

29 

0038 

REP 

5 

0039 

REF 

26 

0040 

110041 

HEP 

1 

0042 

00421 

RE!P 

3 

0043 

REP 

59 

0044 

REP 

284 

0045 

REP 

6 

0046 

REP 

27 

0047 

R004B 

REP 

1 

0049 

0050 

REP 

5 

0051 

REP 

7 

0052 

REP 

22 

0053 

REP 

9 

0054 

REP ; 

285 

0055 

REP 

1 

R0058 

0059 

REP 

8 

0060 

REP 

28 

0061 

REP 

1 

0062 

REP 

2 

0063 

REP 

29 

0064 

REP 

1 

0066 

REP 

2 


LAST 11T8 

last hit 

last 1178 

last 1180 
last 1180 


5070 

54 164 0 

JCBSLEBP T3 

LOC 

5071 

3 5120 1 

CAP 

EJCECBANK 

5072 

54 004 1 

T3 

pbank 

5073 

1 3017 0 

TCP 

JCBSLPl 

JOB POT 

TO SLEEP IN THE ABOVE FAailCN’ 

5074 

0 0004 0 

JCftrAKB INHINT 


5075 

54 065 0 

T3 

NEWLOC 

5076 

4 4711 0 

CS 

TWO 

5077 

26 002 1 

ADS 

0 

5100 

3 5120 1 

CAP 

BCBCBANK 

5101 

56 004 0 

XCH 

pbank 

5102 

1 3044 0 

TCP 

J0BWAKE2 


Exit IS via pindvac/ncvac pkcxsixires. 


TO CHANCE the PRIORITY CP A JCB (XlRRHCTLY UNDER BxEtXjTICN' 



5103 

0 0004 

0 

PRIOCHNO INHINT 


1178 

5104 

54 063 

0 

T3 

NEWPRIO 

1180 

5105 

3 5120 

1 

CAP 

EJCECBANK 

1179 

5106 

56 006 

1 

XGH 

BBANK 

1100 

5107 

54 165 

1 

TS 

banket 

1180 

5110 

3 0002 

0 

CA 

O 


5111 

1 3113 

0 

TCP 

PRIOCH2 


NBA PRIORITY arrives IN A. REIUieiS TO 
CALLER AS SCCN AS NEW JCB PRIORITY IS 
HKSIEST. PREPARE FCH POSSIBLE BASIC- 
STYLE CHANGE- JOB. 


TO REMCXCE A JCB FRCH ExEtXfTIVE CCNSID6RATICNS’ 


00663 REE 635 


last 1180 

5112 

3 5120 

1 

ENDOPJCB CAP 

EJCECBANK 

last 1180 

5113 

54 004 

1 

ts 

pbank 


5114 

1 3124 

1 

TCP 

END JCB 1 

last 1178 

5115 

3 0061 

0 

BTOPIND CA 

EJCECiEMi 

last 1180 

5116 

54 004 

1 

TS 

PBANK 

last 1178 

5117 

1 6710 

0 

TCF 

04-2 

5120 

02626 

1 

EXBCBANK cadr 

PINDVAC2 

last lies 

5121 

00110 

1 

pakeprbt adbbs 

HPAC -36D 


HETUIW TO CALLER AFTER JOB ENTRY 
CCMPLETE. 


LCECMPAC +6> - LCXYOPRBT) 







Assets HKVISION 249 OP AOC PKOHEWM CQLOSaK BY HAS* 2021111-041 


POOOT 


BCBCUriVB 


0008 

00085 


locatb an available vac area . 


01,2628 


0069 

BEP 

3 

LAST 

1180 

01,2626 

54 061 

1 

OOTO 

REP 

4 

LAST 

21T 

01,2627 

10 400 

1 

OOTl 

nap 

1 



01,2630 

1 2643 

0 

00T2 

HEP 

3 

LAST 

21T 

01,2631 

10 454 

0 

00T3 

HEP 

2 

LAST 1181 

01,2632 

1 2643 

0 

OOT4 

HEP 

3 

LAST 

217 

01,2633 

10 530 

0 

0075 

HEP 

3 

LAST 

1181 

01,2634 

1 2643 

0 

0076 

BEP 

3 

LAST 

217 

01,2635 

10 604 

1 

0077 

HEP 

4 

LAST 

1181 

01,2836 

1 2643 

0 

0076 

HEP 

3 

LAST 

217 

01,2637 

10 660 

0 

0079 

hep 

5 

LAST 

1181 

01,2640 

1 264 3 

0 

OOBO 

HEP 

4 

LAST 

561 

01,2641 

0 5604 

a 

OOSl 





01,2642 

01201 

0 

0082 

BEP 

60 

LAST 1180 

01,2643 

8 4711 

1 

0083 





01,2644 

22 007 

0 

0084 

HEP 

325 

LAST 

IITT 

01,2645 

50 000 

1 

0085 





01,2646 

21«777 

0 

0086 

HEP 

6 

LAST 

1180 

01,2647 

26 063 .0 

0087 

HEP 240 

LAST 

1161 

01,2650 

3 4714 

1 

0088 

HEP 

5 

LAST 

415 

01,2651 

54 064 

1 

0089 

HH' 

1 



01,2652 

3 2657 

1 

0090 

HEP 

1 



01,2653 

54 062 

1 

0091 

HEP 

6 

LAST 

1181 

01,2654 

50 064 

0 

0092 

REP 

8 

LAST 

187 

01,2655 

10 167 

0 

0093 

HEP 

1 



01,2656 

1 2717 

0 

0094 





01,2657 

00006 

1 

0095 

HEP 

2 

LAST 

1181 

01,2660 

1 2717 

0 


FIM)VAC2 


ootwr 

TS 

CCS 

Tty 

CCS 

TO' 

CCS 

•ICF 

CCS 

113' 

CCS 

TCP 

tc 

OCT 


VACPCUND AD 
2t 


01 

01/EXEC 

BXBClSMl 

VACiU® 

vACPOuro 

VAC2USE 

VACFOJND 

VACSJSE 

VACFOJND 

VAC^u® 

VACPOUND 

VAC50® 

VACPOUND 

BAILCITT 

1201 

TWO 


INDEX A 
LXCH 0 -1 
AOS NEWPRIO 


NCVACz CAP 
TS 
CAP 

NOVAC3 TS 

INDEX 

CCS 

TCP 

NO.COBES DEC 
TCP 


2EBO 

LOCCTR 

NO.COBES 

ExECTEM2 

LOCCTR 

PRIORITY 

NEXTCOBB 

0 

nextcobe 


20 ’J5 OCT. 28,1968 SATRAP .OOT PAGE 1181 
USB.S PAGE NO. 4 Bo S3 


(SAVE CALLER.S BANK FIRST. ) 


A009S 


NO VAC AREAS. 

RESEIRfB THIS VAC AREA BY STORINC A ZERO 
IN ITS VAC Uffl register AND STORE THE 
ADDRESS OP THE FIRST WORD OF IT IN THE 
LOW NINE BITS OF THE PRIORITY WORD. 


NOVAC biters here. FIND A CORE SET. 
SEVEN SETS OP ELEVEN REGISTERS EACH. 


EACH priority REGISTER CCNTAINS -0 IP 
THE CORRESPONDING CORE SET IS AVAILABLE. 

AN ACTIVE JOB HAS A POSITIVE PRIORITY 
BUT A DORMANT JOfWS PRIORITY IS NEGATIVE 



ass™ BBvISia. 249 OP SOD ptwaWM COLOSSUS BY NASA 202UU-i)41 
•• KxB(X;riv8 


•097 

RBP 


last 1181 

■098 

REP 


last 1181 

•099 

REF 


last 1181 

•100 

RBP 


last 228 

•101 

REF 


last 1182 

•102 

REP 

19 

last 1152 

•103 

REP 


last 1182 

•104 

REF 



•lOS 

REF 

11 

last 1165 

•106 

REP 

20 

last 1182 

•107 

REF 

34 

last 1166 

•108 

REP 

6 

last 1078 

•109 

REF 

2 

last 1182 

•110 

REP 

10 

last 1189 

0111 

REP 

11 

last 1182 

•112 

REP 

T 

last 1182 

•113 

RBP 

4 

last 1180 

•114 

RBP 

30 

last 1180 

•115 

REP 

1 



Oils 

REP 

5 

last 1182 

0117 

REP 

10 

last 1182 

Olio 

REP 

31 

last 1182 

0119 

iffiP 

8 

last 1182 

0120 

REP 

10 

last 1182 

0121 

0122 

REP 

8 

last 1182 

0123 

RBP 

2 

last 1182 

0124 

RBP 

11 

last 1182 

0125 

REP 

9 

last 1182 

0126 

REP 

3 

last 1182 

•127 

REP 

1 


•128 

RBP 

12 

last 1182 

8129 

REP 

2 

last 1181 

8130 

RBP 

1 

8131 

8132 

REF 

5 

last 1181 


01.2661 

01,2882 

01,2663 

01,2864 

01.2665 

01.2666 

01,2667 

01.2870 

01.2871 
01,2672 
01,2873 

01,2674 

01,2875 

01,2676 

01,2877 

01.2700 

01.2701 

01.2702 

01.2703 


3 0063 1 
50 064 0 
54 167 0 
7 4741 0 
50 064 0 
54 166 1 

10 064 1 
1 2704 1 
54 121 1 
3 0166 0 
54 120 0 


CORFXXWD CA 

INOec 


JffiWPRIO 

ux»ni 

TS priority 

HASK LOtfg 

Doiex loccmr 

TS PUSM^ 


10 067 
1 2704 
0 5640 

0 5640 
54 087 
52 066 
52 165 

1 5115 


CCS 
TCP 
TS 
CA 
TS 

SPBCtEST CCS 
TCP 
7C 
7C 
TS 

DXCH 

DXCH 

TCP 


01.2704 

01.2705 

01.2706 

01.2707 

01.2710 

01.2711 

01.2712 

01.2713 

01.2714 

01.2715 

01.2716 

01.2717 

01.2720 

01.2721 

01.2722 

01.2723 

01.2724 


52 066 0 
50 064 0 
52 165 1 
50 067 0 
4 0167 0 
6 0063 1 
0 0006 1 
6 5115 1 
3 0064 0 
54 067 1 
1 5115 0 


»1L0C 


Pxch 

INDEX 

DXCH 

INDEX 

Cs 

AD 

EXTB® 

B2>F 

CA 

TS 

TCP 


3 3054 0 
26 064 1 
10 062 1 
1 2653 1 
0 5604 0 
01202 0 


nextcore cap 
ADS 
CCS 
TCP 
TC 
OCT 


Loccm 

SBlLOC 

OVPIND 

PUSILOC 

PIXLOC 

NESrJOB 

SEILOC 

ocaiciE 

OCaiOLB 

NESfJOB 

NEWLOC 

LOC 

e®piND 

NEWLOC 

Loccro 

LGC 

NEStJOB 

priority 

NEsiPHIO 

b®pind 

Loccm 

NERJOB 

MH'IND 

CORE INC 

locctr 

©(EC1SM2 

NO1MC3 

bailout 

1202 


20’35 OCT. 20,1968 SATHAP .007 PAOB 1182 
USBB-S PAOB NO. 5 Bo S3 

^ THE PRIORITY OP this JOB IN THE CORE 

sbtws priority register Am settke 
JOB sS Puai-DOIN pointer at the beginning 
OP the work area and (X/ERFLOtr INDICATOR 

OPP TO PREPARE PQR interpretive PRO(a)A.MS 

IP CORE set zero is being loaded set up 
(VPIND AND PIXLOC E^EDIATELY ’ 


fflB IP ANY active jobs WAITING (RARE) 
MIST BE AWAKENED BUT UNCSIANGH) JOB. 


+0 9 IQWS active job already set. 


®T UP THE location REGISIERS FOR THIS 


THIS INDEX INSTRUCTION INSURES THAT THE 
HKJIEST active PRIORITY WILL BE CCMpARED 
WITH THE NEW PRIORITY TO SEE IP NEWJOB 
WOULD BE SET TO SIGNAL A SWITCH. 

locctr is left aST at this CORE SET IP 
THE CALLER WANTS TO LOAD ANY MPAC 

hegistbrs, Etc 






NO CORE SETS. 



AS^VLB REVISION 249 OP AOC PROGRAM COLOSSUS BV NASA 2021111-041 20*35 OCT. 28,1968 SATRAP .007 PAOE 1183 


BXECLirlVB 


USR«S PAOE NO. 6 


THE POUjOflNa ROUTINE SSAPS COiffi SET 0 WITH THAT WHOSE RELATIVE ADCWESS IS IN NEWJOB. 




•1345 


32 

LAST 1182 

01,2725 

22 164 

1 

-2 

LXtH 

LOC 


•13S 

■S' 

10 

LAST 

1180 

01,2726 

30 165 

0 

-1 

CAB 

BANKfflT 

BASKSET, not raANK, HAS BIGHT CCHTENTS 

•13S 





01,2727 

0 0004 

0 

CKAMJCB 

INHINT 


•13SZ 





01,2730 

0 0006 

1 


EXTBTO 



•1364 

WP 

14 

LAST 1076 

01,2731 

04 007 

1 


ROR 

SUPBRBNK 

PICK UP CuRHaiT sbank pch bbccn 

•1386 

HEP 

197 

LAST 

1179 

01,2732 

56 001 

0 


XCH 

L 

LCX! IN A AND BBCXH IN L. 

•1368 

B£P 

10 

LAST 

1182 

01,2733 

50 087 

0 

♦4 

INDEX 

NEWJCB 

SWAP LCX; AND BANKSET. 

•13T 

ep 

33 

LAST 

1183 

01,2734 

52 165 

1 


DxCH 

LCC 


•138 

■EP 

34 

LAST 

1183 

01,2735 

52 185 

1 


PxCH 

LC3C 


•1383 

REP 

11 

LAST 

1183 

01,2736 

30 165 

0 


CAE 

bankset 


•1384 





01,2737 

0 0006 

1 


EXTBTO 



•1388 

■EP 

IS 

LAST 1183 

01,2740 

01 007 

1 


WHITE 

SUPER»«K 

SET sbank FOR NEW JCB. 

•139 

«P 636 

LAST 1180 

01,2741 

52 155 

1 


OXCH 

MPAC 

SWAP MULTI-PURPOSE ACCUMULATOR AREAS. 

•140 

REP 

11 

LAST 

1163 

01,2742 

50 067 

0 


INDEX 

NEWJCB 


•141 

REP 

637 

LAST 

1103 

01,2743 

52 155 

1 


DxCH 

MPAC 


•143 

RHP 838 

LAST 

1183 

01,2744 

52 155 

1 


DxQl 

MPAC 


•143 

IBP 

639 

LAST 

1163 

01,2745 

52 157 

0 


DXCH 

MPAC 


•144 

RHP 

12 

LAST 

1163 

01,2746 

50 067 

0 


INDEX 

nerjcb 


•145 

KP 640 

LAST 

1183 

01,2747 

52 157 

0 


DxCH 

MPAC +2 


•148 

RHP 

641 

LAST 

1163 

01,2750 

52 157 

0 


DXCH 

MPAC ^■2. 


•14T 

REP 

642 

LAST 

1183 

01,2751 

52 161 

0 


DXCH 

MPAC +4 


•148 

REP 

13 

LAST 

1183 

01,2752 

50 067 

0 


INDEX 

NEWJCB 


•149 

RHP 643 

LAST 

1183 

01,2753 

52 161 

0 


DXCH 

MPAC +4 


0150 

RB' 

644 

LAST 

1183 

01,2754 

52 161 

0 


DXCH 

MPAC +4 


•151 

RS' 645 

LAST 

1183 

01,2755 

52 163 

1 


DXCH 

MPAC +6 


•153 

HP 

14 

LAST 

1183 

01,2756 

50 067 

0 


INDEX 

NEiRJOB 


•153 

IPP 646 

LAST 

1183 

01,2757 

52 163 

1 


DXCH 

MPAC +8 


•154 

RHP 847 

LAST 

1183 

01,2760 

52 163 

1 


DxCH 

MPAC +6 


•155 

REP 

241 

LAST 

1181 

01,2761 

3 4714 

1 


CAP 

ZERO 


•158 

RBP 

12 

LAST 

1182 

01,2762 

56 121 

0 


XCH 

CVFIND 

make PUSH/OC NECWTIVB TP OVPIND NZ. 

•15T 





01,2763 

0 0006 

1 


EXTBTO 



•158 





01,2764 

1 2767 

1 


BzP 

+3 


•159 

HEP 

21 

LAST 

1182 

01,2765 

4 0166 

1 


cs 

PUSHLCr 


•180 

RBP 

22 

LAST 

1183 

01,2766 

54 166 

1 


TS 

PUSHLCX: 


•181 

REP 

23 

LAST 

1183 

01,2767 

52 167 

0 


DxCH 

PUSHLOC 


0183 

REP 

15 

LAST 

1103 

01,2770 

50 067 

0 


INDEX 

NEWJCB 


•103 

JHP 

24 

LAST 

1163 

01,2771 

52 167 

0 


DxCH 

PoaiLCx: 


•184 

RBP 

25 

LAST 

1183 

01,2772 

52 167 

0 


DxCH 

PUSHLOC 

SWAPS PUSHLCC AND PRIORITY. 

•165 

lEP 

5 

LAST 

1102 

01,2773 

3 4741 

1 


CAP 

LCWg 

SET FIXIXB TO BASE OF VAC AREA. 

•168 

REP 

11 

LAST 

1182 

01,2774 

7 0167 

0 


MASK 

PRIORITY 


•18T 

RBP 

35 

LAST 

1182 

01,2775 

54 120 

0 


TS 

PIXLOC 


•188 

HEP 

26 

LAST 

1183 

01,2776 

10 166 

1 


CCS 

PUSHLOC 

set CX^RFIXW INDICATOR ACCORDING TO 

•169 

REP 

242 

LAST 

1183 

01,2777 

3 4714 

1 


CAP 

zero 


•ITO 

RBP 

1 



01,3000 

1 3005 

0 


TCP 

BTOPRCHG -1 



I 




Ill 
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0171 

0172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 


HEP 27 
HEP 28 
HEP 141 
HSP 13 
HEP 16 


WST 1183 
last 1184 
last 1147 

last 1183 
last 1183 


Hf8» 35 LAST 1183 


01.3001 

01.3002 

01.3003 

01.3004 

01.3005 

01.3006 

01.3007 

01.3010 

01.3011 

01.3012 


4 0166 1 
54 166 1 
3 4712 1 
56 121 0 
54 067 1 

0 0003 1 
52 les 1 
0 0006 1 
6 3013 0 
52 006 0 


CS 

TS 

CAP 

XQl 

TS 


puaiLoc 

PU»LOC 

(MB 

(VPIND 

NEWJCB 


BflJPHCMCJ BBLINT 

OXCH LOG 
EXTEND 

*2 

Dies 


BASIC J(BS HAVE POSITIVE hDOBBSSBS, SO 

dispatch with a OTCB. 

IP INTERPRETIVE, SET UP EBWNK, EIC. 



20*35 OCT, 20,1908 SATRAP .OOT PAOB lies 



ASSE^«LB RBV^ISION 249 OK AOC KOGttAM COLOSSUS BT NASA 2021111'041 
L EXEOurIVB 


0181 




01.3013 

4 0000 0 


CCM 


0182 

HBF 

142 

LAST 1184 

01.3014 

6 4T12 1 


AD 

CNE 

0183 

I«P 

36 

LAST 1184 

01.3015 

54 164 0 


TS 

LOG 

0180 

REF 

1 


01.3010 

1 601T 0 


TCP 

INTRai 

R018T 



CCHPLEnS JCBSLSiP PBSPARATICNS. 




0188 




01.301T 

0 0004 0 

JCBSLPl 

MHINT 


0189 

REF 

12 

LAST 1183 

01.3020 

4 0167 0 


CS 

PRIORITY 

0190 

REF 

13 

lAST 1185 

01.3021 

54 167 0 


TS 

PRIORITY 

0191 

REF 

e 

LAST 1119 

01.3022 

3 6043 0 


CAP 

LOn 

0192 

REF 

23 

LAST 1180 

01.3023 

T 0006 0 


MAac 

BBANK 

01921 




01.3024 

0 0006 1 


eciaro 


01922 

REF 

16 

LAST 1183 

01,3025 

04 007 1 


ROR 

9UPERffi« 

0193 

REF 

12 

LAST 1183 

01.3028 

54 165 1 


TS 

BANKSBT 

0194 

REP 

243 

LAST 1183 

01.302T 

4 4714 0 


Cs 

ZERO 

0195 

REF 

111 

last 1155 

01.3030 

54 131 0 

JCBSLP2 

TS 

BUF ,1 

0196 

REF 

1 


01,3031 

1 3141 1 


TCP 

EJSCAN 

01961 




01,3032 

0 0004 0 

NUCHANG2 

INHINT 


019611 

HEP 

IT 

LAST 1184 

01.3033 

10 067 1 


CCS 

NEWJCB 

019612 




01,3034 

1 3037 1 


TCP 

♦3 

019813 




01,3035 

0 0003 1 


RELINT 


019614 

REF 

1 


01,3036 

1 3233 1 


TCP 

ADVAN +2 

01962 

ref 

61 

LAST 1181 

01.303T 

3 4711 1 


CAP 

TWO 

01963 




01.3040 

0 0006 1 


E)CIB® 


01964 

REP 

30 

LAST 906 

01,3041 

05 011 1 


WOR 

DSAtHCUT 

01965 

REF 

37 

LAST 1185 

01,3042 

52 165 1 


dsgch 

LOC 

01966 

REF 

3 

LAST 11T9 

01,3043 

1 2733 0 


TCP 

CHANJOB + 4 






USBIUS PAOB NO. 8 Eo S3 
EPIUX31B TO JOB CHANCE FOR INTERPRETIVE 
RESU*. 


NNZ PRIORITY SIOWS JOB ASLEEP. 


SAVE OLD SOPERBANK VAUB. 


HOLDS - HIGHEST PRIORITY. 

SCAN FOR HlaiEST PRIORITY ALA ENDOPJOB. 

OJIC^C. . . DCNT LET NEVfJOB CHANGE TO +0 . 

NEVtJCB STILL WIz 

NEwJQB has CHANGED TO +0. WAKE UP JOB 

VIA nuhhect. (very rare case.) 


TURN CN activity LIGHT 
AND SAVE ADDRESS INFO FOR BENEFIT OP 
POSSIBIE SLEEPING JOB. 


ASSB«LB HSVISION 249 OP AGO PEDGSW COLOSSUS Br NASA 2021111-041 
BlBCOTIve 


P0197 

K01S9 

TO OAkE up 
UJC register OP ANY 

B0201 

UKCra IS SET TO -1 

0202 

OS' 

4 

I^ST 1181 

9203 

• IH' 

244 

last 1185 

•204 

BBP 

13 

last 1182 

•205 

BBP 

2 

last 1181 

0200 

BBP 

3 

last 1182 

•207 

BH' 

14 

last 1186 

•208 

BBP 

14 

IAST 1185 

0209 

BBP 

1 


9219 

0211 

ep 

1 


9212 

BBP 

2 

last 1182 

9213 

BBP 

15 

last 1186 

9214 

BBP 

4 

last 1186 

9215 

BBP 

1 


9219 

BBP 

143 

last 1185 

9217 

BBP 

Ifi 

last 1188 

0219 

BBP 

4 

last 1182 

9219 

BBP 

6 

last 1182 

9220 

BBP 

IT 

last 1186 

•221 

BBP 

38 

last 1185 

•222 

0223 

•224 

BBP 

2 

IAST 1188 

•225 

BBP 

18 

last 1186 

•229 

BBP 

15 

last 1186 i 


20 ’35 OCT. 28,1968 SATRAP .007 PACE 1186 
USBRatS PACE NO. 9 BO S3 


•22T ter 
•228 BB' 


•229 aap 


LAST 1182 

last 1186 
last 1186 


•239 aEP 
•231 IBP 
•232 HSP 
•233 BBP 
•234 RBP 
•23S RBP 
•238 BBP 
•23T BBP 


last 1186 

LAST 1098 

last 1186 
last 1186 

LAST 1186 
last 1185 

last 1186 


•238 BBP 
•239 BBP 
•240 BBP 


21 LAST 1186 
3 LAST 1182 
1 


01.3044 

01.3045 

01.3046 

01.3047 

01.3050 

01.3051 

01.3052 

01.3053 

01.3054 

01.3055 


54 061 1 
3 4714 1 
54 064 1 
3 2857 1 
54 062 1 
SO 064 0 
10 167 0 
1 3056 0 
•0014 1 
1 3065 0 


01,3058 

01,3057 

01.3060 

01.3061 


01.3062 4 4712 0 

01.3063 54 064 1 


01,3064 1 5115 0 


01.3065 4 0065 0 

01.3066 SO 064 0 


01,3067 6 0164 1 
01,3070 0 0006 1 


01.3071 1 3073 1 

01.3072 1 3056 0 


01.3073 50 064 0 

01.3074 4 0167 0 


01.3075 54 063 0 

01.3076 50 064 0 


01,3077 


01.3100 44364 0 

01.3101 7 0065 0 


01.3102 • 4700 1 

01.3103 56 065 1 


01.3104 7 4364 0 

01.3105 SO 064 0 


01.3106 6 0165 0 

01.3107 54 066 0 


01.3110 10 064 1 

01.3111 1 2704 1 

01.3112 1 2674 1 


JCaWKE2 T3 EXECIB41 

CAP ZERO 
T3 LOCCto 

CAP NO. CORES 

J(»*AkE4 TS 19(001042 

MEX LOCCto 

CCS PRIORITY 

TCP JCBWAKB 3 

CQBBINC DBC 12 

TCP WAkETEST 


BBOIN COBB SBT SCAN. 


active JCB - check next COBB SET. 
12 HBOISIEHS per core SET. 

SLEBPINO JCB - SEB IP CADR MATCHES 


3 3054 0 
26 064 1 
10 062 1 
1 305 0 0 


JC»IAkE3 cap 
AOS 
CCS 
TCP 

Cs 

TS 

TCP 


CORE INC 

LOCCto 

BXECT042 

JC»|AkE4 

(MB 

LOCCto 

btopind 


Exit ip sleeping jcb not found. 


bakbtbst Cs newloc 

INDEX LOCCto 

AD UK 

EXTB® 

BZF *2 

TCP ja0wAKE3 


IP MATCH. 

Examine next core set ip no match. 


INDEX LOCCto 
C s PRIORITY 
TS NEWPHIO 
INDEX LOCCTO 
TS PRIORITY 


RB-CCMPLB>En' PRIORITY TO SICW JOB AWAkE 


CS PBANKMSK 
mask newloc 

AD 2K 
XCH NEWLOC 
MASK FBANKMSC 
INDEX LOCCTO 
AD BANKSBT 
TS NEWLOC ♦! 


make up the 2CADR OP THE WAKE ADDRESS 
USING THE CADR IN NEWUK AND THE ERANK 
HALF CP BBANK SAVED IN BANKSBT. 




CCS LOCCTO 
TCP ffiTLOC 
TCP SPBCtEST 


special TREATMENT IP THIS JOB WAS 
AIJIEADY IN THE RUN ( 0 ) POSITION. 


I 



i 


P0241 


ASSaeLE BBVISICM 249 CP AOC PBO®AM COLOSSUS Blf NASA 2021111-041 20’35 OCT. 28,1968 SATRAP .007 PAOB 1187 

p|](gCUTIVB USER«S PAQB NO. 10 EO S3 

PRIORITY CHANGE. CHANGE THE CONTENTS OF PRIORITY AND SCAN FOR THE JOB OP HIOffiST PRIORITY. 


0243 

REP 

39 

LAST 1186 

01,3113 

54 164 

0 

0244 

REP 245 

LAST 1186 

01,3114 

3 4714 

1 

0245 

REP 

112 

LAST 1185 

01,3115 

54 130 

1 

0246 

REP 

6 

lAST 1183 

01,3116 

3 4741 

1 

0247 

REP 

17 

LAST 1186 

01,3117 

7 0167 

0 

0248 

REP 

10 

LAST 1186 

01,3120 

6 0063 

1 

0249 

REP 

IB 

LAST 1187 

01,3121 

54 167 

0 

0250 




01,3122 

4 0000 

0 

0251 

REP 

1 


01,3123 

1 3030 

0 


PRIOCH2 


TS 

CAP 

TS 

CAP 

MA9G 

AO 

TS 

C04 

TCP 


LOC 

ZERO 

BlF 

LOgrg 

PRIORITY 

NERPRIO 

PRIORITY 

JOBSLP2 


SET FLAG TO TELL ENDJOB SCANNER IP THIS 
JOB IS STILL HIGHEST PRIORITY. 


A® TO EJSCAN. 



Ill 


AS®«£ RBVISIO, 24, CP AGO P«xaWM COUSSUS W NASA 202X111-041 20-35 OCT. 28,1968 3AIHAP .007 PA« 1188 

1- BXBXlTIve 

USBRaS PACE NO. n Bo S 3 

f0252 BBLEASE THIS COBB SBT AND VAC AREA AND SCAN FOR THE JCB OP HIOfflST ACTIVE PRIORITY. 

ENDJOBi 



0254 

0255 DBF 246 

0256 nap 113 

0257 RQ' 19 
0256 REF T 
02581 REP 198 


02583 


0259 

0260 
0261 

0262 

0263 

0264 

0265 

0266 

0267 

0268 

0269 

0270 

0271 

0272 

0273 

0274 

0275 

0276 

0277 

0278 

0279 

0280 
0281 

0282 

0283 

0284 

0285 


last 1187 
last 1187 
last 1187 
last 1187 
last 1183 


01.3124 

01.3125 

01.3126 

01.3127 

01.3130 

01.3131 


0 0004 0 
4 4714 0 
54 131 0 
58 187 1 
7 4741 0 
54 001 1 


INHINT 
cs zero 

TS BUP ♦! 

icCH priority 

MAac LOW9 
TS L 


i RBP 

2 

last 1178 

01,3132 

4 5121 1 


Cs 

PAkBPRET 

11 RBP 

199 

last 1188 

01,3133 

6 0001 0 


AO 

L 

1 



01,3134 

0 0006 1 


EXTEND 

RBP 

2 

last 1185 

01,3135 

6 3141 0 



BJSCAN 

REF 

200 

last 1188 

01,3138 

10 001 1 


CCS 

L 

REP 

326 

last 1181 

01,3137 

50 000 1 


INDEX 

A 




01,3140 

54 000 0 


TS 

0 

RBP 

20 

last 1188 

01,3141 

10 203 1 

EJSCAN 

CCS 

PRIORITY +1^ 

REP 

1 


01,3142 

0 3206 0 


TC 

BJi 

RBP 

12 

last 1182 

01,3143 

0 5640 0 


TC 

0C9ICLE 




01,3144 

1 3145 0 


TCP 

♦1 

REP 

21 

last 1188 

01,3145 

10 217 1 


CCS 

PRIORITY +24D 

RBP 

2 

last 1188 

01,3146 

0 3206 0 


TC 

EJi 

RS^ 

13 

last 1188 

01,3147 

0 5640 0 


TC 

CCaiCLE 




' 01,3150 

1 3151 0 


TCP 

♦1 

REP 

22 

LAST 1188 

01,3151 

10 233 1 


CCS 

priority +36D 

RBP 

3 

last 1188 

01,3152 

0 3206 0 


TC 

EJi 

RBP 

23 

LAST 1188 

01,3153 

67610 1 

-CCSPR 

-CCS 

priority 




01,3154 

1 3155 1 


TCP 

♦1 

REP 

24 

last 1188 

01,3155 

10 247 1 


CCS 

priority +48D 

REP 

4 

last 1188 

01,3156 

0 3206 0 


TC 

EJi 

RBP 

14 

last 1188 

01,3157 

0 5640 0 


TC 

CCSHCLE 




01,3160 

1 3161 0 


TCP 

+1 

REP 

2S 

last 1188 

01,3161 

10 263 1 


CCS 

PRIORITY +60D 

RBP 

5 

last 1188 

01,3162 

0 3206 0 


TC 

EJl 

REP 

15 

last 1188 

01,3163 

0 5640 0 


TC 

OCSHCLB 




01,3184 

1 3165 1 


TCP 

♦1 

REP 

26 

last 1188 

01,3165 

10 277 1 


CCS 

PRIORITY +72D 

REP 

6 

last 1188 

01,3166 

0 3206 0 


TC 

EJl 

REP 

16 

last 1188 

01,3167 

0 5640 0 


TC 

CCSICLE 




01,3170 

1 3171 1 


TCP 

♦1 


NtVAC ©roOPJCB 


Examine eaqi priority register to find 

THE JOB OP HiaiEST ACTIVE PRIORITY. 





li 


ASSetBlX levISION 349 op AQC PROSIAM colossus by NASA 2021111-041 
BCBCUrlVB 



P028e 


BVALUATB THE RESULTS OP THE 

SCAN. 



0287 

*P 114 

I>ST 1188 

01,3171 

10 131 

0 


CCS 

BUP +1 

0288 

B 8 P 17 

LAST 1188 

01,3172 

0 5640 

0 


7C 

CCaiCLE 

0289 

*P 18 

LAST 1189 

01,3173 

0 5640 

0 


7C 

OCaiCLE 

0290 



01,3174 

1 3176 

0 


TCP 

♦2 

0291 

«P 2 

LAST 181 

01.3175 

1 3223 

0 


TCP 

DUWJOB 

0292 

BBP 115 

LAST 1189 

01,3176 

10 130 

1 


CCS 

BlP 

0293 



01,3177 

1 3201 

0 


TCP 

*2 

0294 

» 2 

LAST 1183 

01,3200 

1 3005 

0 


TCP 

ENDPHQIO -1 

0295 

l«P 327 

LAST 1188 

01,3201 

SO 000 

1 


INDEX 

A 

0290 



01,3202 

2«7777 

0 


CAP 

0 -1 

0297 

BBP 1 


01,3203 

6 3153 

0 


AD 

-OCSPR 

0298 

«P 18 

LAST 1185 

01,3204 

54 067 

1 


TS 

NEWJCB 

0299 

BBP 4 

LAST 1185 

01,3205 

1 2725 

1 


TCP 

CHANJOB -2 

0300 

WP 110 

LAST 1189 

01,3206 . 

54 132 

0 

EJl 

TS 

BUP *2 

0301 

BBP 117 

LAST 1189 

01,3207 

6 0131 

1 


AD 

BUP ♦! 

.0302 

BBP 328 

LAST 1189 

01,3210 

10 000 

0 


CCS 

A 

0303 

BEP 118 

LAST 1189 

01,3211 

4 0132 

0 


Cs 

BUP *2 

0304 

BBP 1 


01,3212 

1 3216 

0 


TCP 

EJ 2 

0305 



01,3213 

13 214 

1 


NOOP 


0308 

BBP 288 

LAST 1180 

01,3214 

50 002 

0 


INDEX 

0 

0307 



01,3215 

0 0002 

0 


TC 

2 

0308 

BBP 119 

LAST 1189 

01,3216 

54 131 

0 

EJ 2 

TS 

MP <-1 

0309 



01,3217 

0 0006 

1 


EXTEND 


0310 

BBP 120 

LAST 1189 

01,3220 

22 130 

0 


OfCH 

BUP 

0311 

BBP 121 

LAST 1189 

01,3221 

50 130 

0 


INDEX 

BUP 

0312 



01,3222 

0 0002 

0 


TC 

2 


20’35 OCT. 28,1968 SAIBAP .007 PAOB 1189 
USBR«S PAOS NO. 12 Bo 83 

SHB IP THERE ARE ANT ACTIVE JOBS WAITINO 


Bup IS zero ip this is a priocmno and 

CHANGH5 PRIORITY IS STILL HIGHEST. 


OIHEIWI®, set NBirJOB TO THE RELATIVE 
ADDRESS OP THE NEW JQBgcS CORE SET. 


- OLD Hiai PRIORITY. 


NEW HICH PRIORITY. 


PROCEED WITH ffiAHCH. 


FOR LOCATING CCS PRIORITY + X INSTR. 



I 


F0314 

It031S 


ASSMLB RBVISICN 249 OP AOC KOOBAH CQUMSUS BY NASA 2021111-041 
BXBtXiriVB 

■kx. CtKFUESa activity ( ageB 4> light wintenancb 

RJT HAlHER A SIBROUTINB OP BB E)CECotIvE. 


0318 

HEP 

4 

LAST 257 

0319 

HEP 

247 

lAsr 1188 

0320 

0321 

HEP 

19 

last 1189 

0322 

0323 

REP 

62 

last 1185 

0324 

HEP 

31 

last 1185 

0328 

HEP 

20 

last 1190 

0329 

REP 

1 

0330 

REP 

63 

last 1190 

0331 

REP 

1 

03317 

HEP 

5 

last 1190 

03318 

HEP 

201 

last 1188 

0332 

HEP 

1 

0333 

REP 

4 

last 822 

03338 

HEP 

6 

last 1190 

0334 

REP 

3 

last 257 

0335 

0338 

REP 

32 

last 1190 

0337 

REP 

40 

last 1187 

03372 

03378 

REP 

5 

LAST 1190 

03379 

REP 

2 LAST 1178 TO 


13B1 

01.3223 

01.3224 

01.3225 
01.3223 
01.322T 

01.3230 

01.3231 

01.3232 

01.3233 

01.3234 


4 4T14 0 
54 06T 1 

0 0003 
4 4711 
0 0006 
03 011 
10 067 

1 3032 
3 4711 
1 3242 


fflAf4C= SEUTOT 

1XJM4YJQB C3 2BHO 

TS NEffJCB 

HELINT 
CS Tiro 

ena® 

«WD DSALMCtTT 
ADVAN CCS NEsrJCB 
TCP JAJCHAN02 

CAP Bro 

TCP NICIBECt 


R033T91 SUPPXCHZ - ROrriN 
R033792 CALLING SEQUENCE 
>033793 


0338 

03381 

03382 

03383 

03384 

0339 


REP 202 

HEP 17 
IIS' 24 
IIS' 203 


last 1190 

last 1185 
last 1185 

last 1190 


01,3235 

3 1361 1 


CA 

®J'HET 

01,32S 

54 001 1 


TS 

L 

01.3237 

3 3241 0 


CAP 

«jbank 

01.3240 

1 5123 0 


TCP 

SUPDXCHZ 

13S1 



EBANKz 

: SELPRBT 

01,3241 

66102 1 

SELPBANK bbcgn 

MJ'CHc 

01.3242 

0 0006 1 

nudiheot Extend 

01.3243 

05 011 1 


WQR 

DSALMCUT 

01.3244 

52 165 1 


DXCH 

LOC 

01.3245 

1 5122 1 


TCP 

SUPDxCHz 

5122 



block 

2 

1181’ 

59 59* 


COUNT 

02 /Exec 

t THMSPBH TO SUPERBANK. 






TCP 

SUPPxCHz 

5122 

56 001 0 

SUPOxCHz XCH 

L 

5123 

0 0006 1 

+1 

EXTEND 


5124 

01 007 1 


write 

SUPERBNK 

SIS 

54 006 0 


TS 

bbank 

5126 

0 0001 0 


TC 

L 


20’35 OCT. 28.1968 SATHAP .007 PAGE 1190 
OSERkS PAGE NO. 13 EO S3 

THE IDLINO ROUTINE IS NOT A JOB. IN ITSELP, 

SSJ'-QlBGic STORAGE IN EBANK. 

SET N0»JOB TO -0 POR IDLimi. 

TURN OPF the activity LIGHT. 


IS A NEWJOB active w 

YES... GNE REOJIRINO A CHANGE JOB. 

NB» JOB already in POSITION POR 

execotign. 


PUT HETUroi ADDRESS IN L. 
1 AND DISPAltH JOB 


TUWI THE OflES4 LKHT BACN CN. 

JOBS STARTED IN THIS PAailCN HIST BE 

IN PIXED-PIxH) SO OmERS MAY USE. 


WITH 2CADR OP DESIRED LOCATION IN A ♦ L. 
BASIC. 





5127 77677 1 NBOIOO OCT 


77677 

4 
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ASSaCLE H8VISIQN 249 OP AOC PROQBAM COUJSSUS BY HASA 2021111-041 
•AITUST 


proqham description 
■0003 MCD NO - 2 

■0005 MOD BY - MIUER (DTM4X INCiffiASH) TO 182.5 SEC) 

■00072 MOD 3 BY KBRNAN (INHINT INSERTED AT «AIlLIsr) 2/2B/68 SCIPPER REV 4 

■00073 • MOD 4BY KEIWAN (WIDOLE IN 54) 3/28/68 SCIPPEH REV 13. 

■000799 


20’35 OCT. 28,1968 SATRAP ,007 PAGE 1191 

USERdiS PAGE NO. 1 Eo 83 

DATS - 10 OCTOBER 1986 
LOS section - WAITLIST 
ASSaCLY SUNBURST REv 5 


■0008 

■0009 

■0011 

■0013 

■0014 

■0016 

■0017 

■0018 

■0019 

■0020 

■0021 

■0022 

■0023 

■0024 

■0025 

■0026 

■0027 

■0028 

■0029 

■0030 

■0031 

■0032 

■0033 

■0034 

■0035 


PUNtTrlONAL DESCRIPTICN- ^ ^ 

PART OP A section OP PRCtJBAMS, -WAITLIST, 7ASK0VER, T3RUPT, UfflD TO CALL A PROGRAM, (CALLED A TASK), 
■HIGH IS TO BEGIN IN CIA) CB(TISECCNDS. WAITLIST UPDATES TI^E3, LSTl AND LST2. THE LEANING OP THESE LISTS 
FOLLOW. 

C(TIME3) = 16384 -(TT-T) CBITISECCNDS, (TrPREsaiT TI*, Tl-TM FDR TASK!) 

C(LSTl> = -(T2-Tl)+1 
CILSn *1) = -(T 3 -T 2)»1 
CILSTl * 2 '> = -(T4-T3)+1 

CILsn +6) = -(TB-Tt)* 1 
CILSn ♦T) = -(T9-T8)+1 

C(LST2) = 2CADR OP TASCl 
C(LST2 *2) = 2CADB OP TASK2 


warnings- 


C(LST2 +14)= 2CADR OP TASCS 
C(LST2 +16)= 2CADR OP TAaO 


1) 1 ±= C(A) ±= 16250D (l CamsECONO TO 162.5 SEC) 

2) 9 tasks M4Xli>U4 

3) TAaCS CALLED UNDER INTERRUPT INHIBITED 

4) TASKS END BY TC TASKOIER 


■0036 CALLING SEOUENCE- 


■0037 

■0039 

■0040 

■0041 

■0042 

■00421 TWIDDLE- 

■00422 

■00423 

■00425 


L-1 

L 

L»1 

L+2 

L+3 


CA DELTAT (TIFE IN CENTI SECONDS TO TAK START) 

,TC waitlist 

2CADR DESIRH) TASK 
(MINOR OP 2CADR) 

RELINT (returns HERE) 


TWIDOIE IS FOR USE WHEN THE TASK BEING SET UP IS IN THE SK« BBANK AND FBANK AS THE USER. IN 
SUCH CASES, IT IMPROVES UPON WAITLIST BY ELIMINATING THE USED FOR THE HHCCN HAIi' OF THE 2CADR, 



I 


L 

R0042T 


ASSBBLB RBVISION 249 OP AOC PROCSMM COLOSSUS BY KAsA 2021U1-041 
•AIILIST 


20’35 OCT. 28,196S 8A1HAP 
USBBbS 9MB NO. 2 


110043 

800431 

1100432 

1(00433 


saving A WORD. WIDDLB 13 LIkB WAIILIST IN EVEBY HESPBCT EXCEPT CALLING SEQUENCE, TO WIT- 


OOT FACE 1192 
Bo S3 



L-1 

L 

Ul 

U2 


CA DBLTAT 

TO TWIDDLE 

adres desired wac 
helint 


1(00439 NORMAL EXIT MODES- 


(RBIUJWS leRB) 


1(0044 

1(0045 


at l<.3 op calling SBQi»ICE 
alarm Or abort exit MCDES- 


1(0040 

R004T 


IC 

OCT 


R0048 erasable INITIALIZATION REOUIRTO- 


ABORT 

1203 (waitlist (VERPLCW - TOO MANY TAaOS) 


1(0049 

ROOSO 


ROOSI 


R0052 

R0053 


OUTPUT— 

DE 8 HI 3 - 


ACCOIPLISHED BY FRB9I START. -LST 2 . ... . Lsr 2 *16 =ENDBAa< 

LBTl,..., Lsn *7 =NB0 i/2 


LSn AND LST 2 UPDATED WITH NEW TASK AND ASSOCIATH5 TISE. 


R0054 

R0055 

ROOSO 


camiALs- a,q,l 

- waitexit, WAITADR, WAITIEAP WAITBANV 
detailed analysis op TIMING- w^llHflNK 


ROOST 
RODS 9 




IN Exactly delta t csevti seconds. 


Raaoo 

Roooi 

1(0062 

R0063 

R0084 

ROOOO 

ROOOT 

R0068 

Roa69 

ROOTl 


let TO = THE TISE OP THE TC WAITLIST 

LOT TS = TO *147U ♦ CCXNTER INCHESTS (SOT UP TIME) 

^100TS)/ioO (variance FRCM COUNTERS) 

^ W TM! OP inhibit INTERRUPT AFTER TaftiPT 

(Z=0, USUALLY) ' ™ PROCESS TASCS WHICH ARB DjE THIS T3HUPT BUT DISPATCHED EARLIER 

*-ira IIW wxo, BY misT ITSSLP A» ™ ooimBilSixo IW,«J vns miHIST t™. 




BOOT2 

1(0074 

B0076 

0077 


INTERBOP^'^ ^TSrTiqoWGrTTO^Tmi^T^^^MWG^'^ TO SOT UP THE TASK’S 

OF OlHER TASKS INHIBITING THE INTERRUPT ' WAIH^IST PROCESSING TI>e AND THE POSSIBILITV^ 

5130 block 02 




ASSEWLB RBylSICH 249 CP AOC PfUORAH COLOSSUS BY KASA 2021111-041 20’35 ODr. 28,1968 SATRAP .OOT PAGE 1193 


L 

waitlist 







USBR.S PAGE NO. 3 EO S3 

MTS 

REP 

14 

last 189 

B3,1400 



EEAKfe Lsn 

TASK LISTS IN SWITCHED E BA«C. 

MT9 

HBP 

1 





OOCNT 

02ASMT 


00T95 




5130 

0 0004 

0 

TwnMLE INHINT 



M80 

HEP 

204 

LAST 1190 

5131 

54 001 

1 

TS 

L 

SAVE DaAY TIME IN L 

M81 

HEP 

35 

LAST 1155 

5132 

3 4672 

0 

CA 

P094AX 


M82 

HEP 

287 

LAST 1189 

5133 

26 002 

1 

ADS 

0 

CHEATING CVERPLOW AND 0-1 IN 0 

Ma3 

HEP 

25 

LAST 1190 

5134 

3 0006 

1 

CA 

BRA* 


MS 32 




5135 

0 0006 

1 

EJOB® 



M834 

REP 

18 

LAST 1190 

5138 

04 007 

1 

ROR 

supehbnk 


M84 

REP 205 

LAST 1193 

513T 

56 001 

0 

XCH 

L 


M849 




5140 

0 0004 

0 

waitlist DWINT 



MSS 

HEP 

^8 

LAST 1193 

5141 

56 002 

0 

XCH 

0 

SAVE r*MA T IN Q AND RETURN IN 

0086 

HEP 

1 


5142 

54 061 

1 

TS 

WAITEXIT 

WAITEXIT. 

M8T 




5143 

0 0006 

1 

EjcnM) 



0088 

HEP 

2 

LAST 1193 

5144 

5 0061 

0 

INDEX 

WAITEXIT 

IP TWIDDLING, THE TS SKIPS TO HERE 

M89 




5145 

3 0001 

0 

DCA 

0 

PICK UP 2CADR OP task. 

MOO 

REP 

1 


5146 

54 063 

0 

-1 TS 

WAITADR 

BBCCN WILL RHAAIN IN L 

M91 

hep 

1 


514T 

3 5155 

0 

DLY2 CAP 

waiteb 

BITRY FRCM PIXDEIAY AND VARDKAY. 

M92 

REP 

26 

LAST 1193 

5150 

56 006 

1 

XCH 

BBANK 


M93 

REP 

1 


5151 

1 3246 

0 

TCP 

WAIT2 


IIM94 



HBTURK TO QILLER APIEB TASK 

INSERTIQ4’ 



0095 

REP 

3 

LAST 1193 

5152 

52 062 

1 

LVWTLIST DxCH 

WAITEXIT 


M96 

HEP 

64 

LAST 1190 

5153 

6 4711 

1 

AD 

TWO 


009T 




5154 

52 006 

0 

DICB 



0099 

HEP 

15 

LAST 1193 

E3,1400 



ebank= 

Lsn 


0100 

HEP 

2 

LAST 1193 

5155 

02063 

0 

waitbb bbccn 

WAIT2 


ROlOl 



BBIUBN TO CAUJBR *2 APTBR WAITING DT SPECIFIED AT CALLER . 


0102 

BEK 

2S9 

LAST 1193 

5156 

50 002 

0 

pixdblay index 

0 

BOTH RCUTINES MUST BE CALLED UNDER 

0103 




515T 

3 0000 

1 

CAP 

0 

WAITLIST CCNTRCL AND TEK1INATB THE TASK 

0104 

REP 

290 

LAST 1193 

5160 

24 002 

0 

INCH 

0 

IN WHICH they were CAUED. 

mios 



RETJIW TO CALLER ♦! 

APIER WAITING THE DT AS ARRIVING IN A, 


0106 

REP 

291 

LAST 1193 

5161 

56 002 

0 

VARDELAY xCH 

0 

DT TO 0. TASK ADRES TO WAITADR. 

OlOT 

REP 

2 

LAST 1193 

5162 

54 063 

0 

TS 

■AlTftDR 


0108 

HEP 

27 

LAST 1193 

5163 

3' 0006 

1 

CA 

BBASK 

BBANK IS SAVED DURING DEIAY. 

0109 




5164 

0 0006 

1 

EXTEND 



0110 

HEP 

19 

LAST 1193 

5165 

04 007 

1 

ROR 

SUPePBSK 

ADO SBANK to bbccn. 

0111 

REP 

206 

LAST 1193 

5166 

54 001 

1 

TS 

L 


0112 

feP 

1 


5167 

3 5172 

0 

CAP 

DGLAYEX 


0113 

HEP 

4 

LAST 1193 

5170 

54 061 

1 

TS 

WAITBXIT 

GO TO TASKOVER APIER TASK ENTRY. 

0114 

REP 

1 


51T1 

1 5147 

1 

TCP 

a.Yz 




I 

I 


I 


I I 


III 
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t- ■AllLIST 

•115 MP 50 lAST 1059 


5172 1 5211 1 DHAYEX TCP WSCO^/ER -2 


20’35 OCT. 28,1868 SATRAP .007 PAGE 1194 
USBRicS PAOB NO. 4 83 33 

hbiubns to macovER 





Ill 


ASSa«LE REVISION 249 W AOC PROtStAM COUBSUS BV NASA 2021111-041 
L WAITLIST 

ROllO BOTASK ItJST BE ENTERED IN PIXHJ-EIXH) SO IT IS DISTINOjiaiABLE BY ITS ADBBS ALOffl 

SIANK: LSri 


20’35 OOT. 28,1908 SATRAP .OOT PAGE 1195 
USER«S pace no. S B3 S3 


one 

REP 

16 

LAST 

1193 

E3.1400 



0119 

REP 

1 



5173 

72602 

0 

0119 

REP 

1 



5174 

73714 

1 

0120 

REP 

18 

LAST 

1038 

5175 

10 076 

1 

0121 

REP 

57 

LAST 

1194 

5176 

1 5213 

0 

0122 

REP 

58 

LAST 

1195 

5177 

1 5213 

0 

0123 





5200 

1 5201 

0 

01231 

REP 

2 

LAST 

188 

5201 

11«322 

1 

01232 

REP 

59 

LAST 

1195 

5202 

1 5213 

0 

01233 





5203 

1 5206 

1 

01234 

REP 

60 

LAST 

1195 

5204 

1 5213 

0 

01235 

REP 

61 

LAST 

1195 

5205 

1 5213 

0 

0124 

REP 

1 



5206 

3 7672 

0 

0125 

REP 

30 

LAST 

986 

5207 

0 5027 

1 

0126 

REP 

7 

LAST 

776 

E3,1460 



0127 

REP 

1 



5210 

03542 

1 

0127 

REP 

1 



5211 

14063 

1 

0128 

HEP 

62 

LAST 

1195 

5212 

1 5213 

0 


SVCT3 


CCS 

TCP 

TCP 

TCP 

CCS 

TCP 

TCP 

TCP 

TCP 


PLAQWHD2 

TftSKO^R 

XASKOVER 

♦1 

MUCADR 

TAacOkEH 

♦3 

»SKa«R 

TAaco^R 


+3 


PRIO35 
novac 

ebank= NHTX 

2CADR NHXJJLY 


CAP 

TC 


DRIPT PtAO 


DCN.T DO NBDCNLY IP SOIGNE ELSE IS IN 
IHJSTAU,. 


CCMPENSATE POR NED COEPPICIENTS ONLY. 
aWBLE EVERY 81.93 SECCNDS 


TCP TAaCCVER 



I 


w Assaeus rbvisiw 249 op aoc phogbam colossus by nasa 
l- waitlist 


2021111-041 


Wl29 



begin TVac 

0130 

0131 

REP 

1 


0132 

REP 

1 


0133 

HEP 

2 

I^ST 186 

0134 

REP 

27 

last 1128 

0135 

HEP 

329 

last 11B9 

*0136 

AOI37 

A013« 

0139 

i®P 

2 

last 1174 

0140 

HEP 

330 

last 1196 


20*35 OCT. 28,1968 SATRAP .007 PAOB 1196 
U8EH.S PACE NO. e B3 83 


01,3246 


01.3246 54 062 1 

01.3247 4 0026 1 

01.3250 6 4703 1 

01.3251 10 000 0 


01.3252 6 6056 1 

01.3253 4 0000 0 


BAJ6C 01 
OXJNT OlArAIT 

CALLING PHOtfflAM. 

ros bit 8 = OCT 200 


OCT40001 

A 


fratWAL CASE (CIA) NNZ) YIEUJS »1^E C(A) • -( -<i.o-(Tl-T)) * 200) 

^ 292 cast 1193 ll’.lTs I I 


WEBPLOr HAS OCCXjHHBD. 

T - Tl ♦ 1.0 - 201 


set C(A) 


01,3254 

6 3402 1 

AD 

01,3255 

6 0002 0 

AD 

01,3256 

10 000 0 

CCS 

01,3257 

6 1400 1 

AD 

01,3280 

1 3322 0 

TCP 

01.3261 

13 282 0 

NOOP 

01,3262 

4 0002 1 

cs 


HESILT = TD - Tl + 1 . 
test TD - Tl ♦ 1 

IP TD - Tl POS, GO TO WTl,STS WITH 
C(A> = (TD - Tl) + C(LSTl) = TD-TZ+l 


0153 REP 

0154 REP 

0155 REP 

0156 REP 
015T REP 

0158 

0159 


am .. m.JiOl 13 282 0 MOnp 

HEP 293 LAST lige 01,328 2 4 0002 1 C^ O 

^TTOT THIS PBOGBM SECriCN Is NEVER ENTERH) t-Ti G/E 

symbol ^EANS^GHEA^^•^HIN*0R^^L TO 

CEHN (ver A PREvicxjs (» m«nb(t overpiLo*™ TlSefm^^ ^ 


8 lAST 1057 

9 IAST 1196 
3 LAST 1196 

12 LAST 1118 
294 LAST 1198 


01,3263 6 46T5 1 
01,3284 6 4675 1 
01,3205 56 026 0 
01,3266 6 4674 0 

01,3287 6 0002 0 

01.3270 0 0006 1 

01.3271 22 007 0 


AD POSl/2 

AD POSl/2 

XCH TIW3 
AD NB04AX 

AD o 

Extend 
(KCH 7 


*HR4 TD IS NEXT, PORH QUANTITY 
1.0 - delta T = 1.0 - (TD-T) 

1.0 - DEltAT T no* COMPLETE 
zero Index o. 

(ZO) 



20’35 OCT. 28,1968 SATRAP .DOT PACE 119T 



III 


ASSMUS RBVISIQN 249 OP AQC PRCX^RAM CQLOSSaS BY' HA3A 2021111-041 


L 

■AITL.I3T 








USEB.S PAGE NO. 7 E3 S3 

0160 

ter 

10 

last 

1196 

01.32T2 

57«400 

1 WJVSTA 

XCM 

Lsn 


0101 

BO' 

19 

LAST 

119T 

01,3273 

57«401 

0 

XCH 

Lsn +1 


0102 

BBP 

20 

LAST 

1197 

01,3274 

57-402 

0 

XCH 

LSn *2 


0103 

WE 

21 

lAST 

1197 

01,3275 

57-403 

1 

XCH 

LSn +3 


0104 

tep 

22 

LAST 

1197 

01,3278 

57-404 

0 

XCH 

Lsn +4 


0165 

HEP 

23 

LAST 

1197 

01,3277 

57-405 

1 

XCM 

LSn *5 


0160 

HEP 

24 

LAST 

1197 

01,3300 

57-408 

1 

XCH 

LSn *6 


OICT 

BEP 

25 

LAST 

1197 

01,3301 

57-407 

0 

XCH 

LSn +7 


OlOa 

BBP 

3 

LAST 

1193 

01,3302 

3 0063 

1 

CA 

IIAIT4DR 

(MINOR PART OP TASK CADR HAS BEEN IN L 

0169 

BEP 295 

LAST 

1196 

01,3303 

50 002 

0 

INDEX 

0 


OITO 





01,3304 

1 3305 

0 

TCP 

♦1 


OlTl 

BEP 

19 

LAST 

107 

01,3305 

53-411 

0 

DXCH 

LST2 


01T2 

BEP 

20 

LAST 

1197 

01,3306 

53-413 

1 

DXCH 

LST2 *2 


01T3 

BEP 

21 

LAST 

1197 

01,3307 

53-415 

1 

DxCH 

LST2 +4 


01T4 

BEP 

22 

LAST 

1197 

01,3310 

53-417 

0 

OXCH 

LST2 +6 


01T5 

BB' 

23 

LAST 

1197 

01,3311 

53-421 

0 

DxCH 

LST2 +8D 


OITO 

BEP 

24 

LAST 

1197 

01,3312 

53-423 

1 

DXCH 

LST2 +10D 

AT END, check THAT C(LST2+10) IS STD 

61TT 

SEP 

25 

LAST 

1197 

01,3313 

53-425 

1 

DXCH 

LST2 +1^ 


OITO 

BEP 

28 

LAST 

1197 

01,3314 

53-427 

0 

DXCH 

LST2 +14D 


01T9 

BEP 

2T 

LAST 

1197 

01,3315 

53-431 

1 

DX<H 

LSr2 +16D 


0100 

BEP 

3 

LAST 

187 

01,3316 

6 5173 

1 

AD 

aOTASK 

BJD ITB4, AS (HECK FCR EXCEEDING 

AOIOI 










THE LB«3TH OP THE LIST. 

0182 





01,3317 

0 0006 

1 

EXTEND 


rWW TASK ADRES should be in FIXED- 

0183 

HP 

1 



01,3320 . 

1 5152 

0 

BzP 

LwriLIST 

PIXED SO ITS ADRES ALCNE DISTIN(ajISHES 

0184 

BEP 

1 



01,3321 

1 3375 

1 

TCP 

WTIBORT 

IT. 



1 

I 

I 



ASSEMLE IBVISKW 24» OP AOC PBOtJBAM COLOSSUS By JttSA 2021111-041 

baiilist 


0185 PEP 332 lAsr 1196 

0188 RBP 28 LAST 1197 

01 6T 

0188 REP 144 LAST 1188 

0189 PEP 1 

0190 


0194 

PEP 

145 

lASr 1198 

0195 

PEP 

2 

last 1198 

0196 



0197 

PEP 

334 

IAST 1198 

0198 

REP 

28 

last 1198 

0199 



0200 

PEP 

140 

IAST 1198 

0201 

RBP 

3 

last 1198 

0202 



0203 

REP 

335 

last 1198 

0204 

RE5P 

29 

last 1198 

0205 



0206 

REP 

147 

last 1198 

0207 

PEP 

4 

last 1198 

0208 



0209 

REP 

336 

last 1198 

0210 

REP 

30 

last 1198 

0211 



0212 

REP 

148 

last 1198 

0213 

REP 

5 

last 1198 

0214 




0215 

RBP 337 

last 1198 

0216 

Ha? 

31 

last 1198 

0217 



0218 

REP 149 

last 1198 

0219 

REP 

6 

last 1198 

0220 




01.3322 

01.3323 

01.3324 

01.3325 

01.3326 

01.3327 


10 000 0 
8 1401 0 
1 3330 0 
8 4712 1 
0 3403 0 
00001 0 


A 

Lsn ♦! 


20’35 OCT. 28,1988 SATRAP - ,007 PAGE 1198 
USBbS page no. 8 B3 S3 
TEST TO - T2 ♦ 1 


HEP 333 lAST 1198 
HEP 27 LAST 1198 


(MB 

•TLOT2 

1 


01.3330 

01.3331 


10 000 0 
8 1402 0 


01.3332 1 3336 0 

01.3333 6 4712 1 


A 

*2 


TEST TD _ T3 + 1 


01.3334 

01.3335 


0 3403 0 
00002 0 


(ME 

W1LST2 

2 


01.3336 10 000 0 

01.3337 6 1403 1 


01.3340 1 3344 0 

01.3341 6 4712 1 


01.3342 0 3403 0 

01.3343 .00003 1 


A 

Lsn *3 

(MB 

«nLST2 

3 


TEST TO - T4 ♦ 1 


01.3344 10 000 0 

01.3345 6 1404 0 


01,3346 1 3352 1 


A 

LSTl *4 

•■4 


TEST TO - TS + 1 


01,3351 


01,3365 


6 4712 1 

AD 

(ME 

0 3403 0 

TC 

WTLST2 

00004 0 

OCT 

4 

10 000 0 +4 

CCS 

A 

8 1405 1 

AO 

LSTl +5 

1 3380 0 

ICF 

■►4 

6 4712 1 

AD 

(ME 

0 340 3 0 

TC 

riLST2 

00005 1 

OCT 

5 

10 000 0 «.4 

CCS 

A 

6 1406 1 

AD 

LSTl «8 

1 3366 0 

TCP 

♦4 

6 4712 1 

AO 

(MB 

0 3403 0 

TC 

WILSr2 

00006 1 

OCT 

6 


test To - Tb + 1 


TEST TO - T7 ♦ 1 




I 



Ill 


ASSBCLB BSvriSICM 249 CP AOC PROCSIAM COJMSUS ST KASA 2021111-041 


L 

■AIltlST 









0221 

HBP 

338 

LAST 

1198 

01,3366 

10 000 

0 

4>4 

CCS 

A 

0222 

REP 

32 

LAST 

1198 

01,3367 

6 1407 

0 


AO 

Lsn *7 

0223 





01,3370 

1 3374 

0 


TCP 

♦4 

0224 

HHP 

150 

lAST 

1198 

01,3371 

6 4712 

1 


AO 

CMB 

0225 

REP 

T 

LAST 

1198 

01,3372 

0 3403 

0 


IC 

. W1LST2 

0228 





01,3373 

00007 

0 


OCT 

7 

0227 

REP 

339 

LAST 

1199 

01,3374 

10 000 

0 

+4 

CCS 

A 

0228 

REP 

0 

LAST 

1182 

01,3375 

0 5604 

0 

wiftBotrr 

“TC 

BAILOIT 

0229 





01,3376 

01203 

1 


OCT 

1203 

0230 

REP 

151 

LAST 

1199 

01,3377 

6 4712 

1 


AD 

CNE 

0231 

REP 

8 

LAST 

1199 

01,3400 

0 3403 

0 


TC 

inLST2 

0232 





01,3401 

00010 

0 


OCT 

10 

0233 





01,3402 

40201 

0 

OCT40201 tCT 

40201 


20’35 OCT. 28,1968 SATRAP ,007 PACE 1199 
U^US PACE NO. 9 K3 S3 


NO BOCM IN THE INN. 



ASSEBLE REVISICW 249 OP AOC PBO(«flM COUSSUS Br WVgA 2021111-041 ; 

WITLISr 

«« BnRSf TO WltST2 JUST PRECEDINQ OCT M Is FOR T LE TD LE T -1. 

« M*l 

«E (BANS LESS THAN OR EQUAL TO) . AT ENTHY. CIA) = .(TD - T ♦ D 

N+1 

W LSTl BITRY -IT - T ♦!) IS TO BE REPLACED BY _<■© - T ♦ D, AND 
N-f-l N ^ 

WE aCRY -IT - TO ♦ 1) IS TO BE INSSRIED DMHOIAIELY POLLOwINO 
M«-l 


20’35 OCT. 28.1908 SATRAP .007 PAOB 1200 
aSkS PACE NO. 10 E3 83 


1 01,3415 

CITIf«3) = 1.0 - (Tl - T) 

CILSTl ) = - (T2 - Tl) 1 
CILSTln) = - (T3 - T2) ♦ 1 
CCLSTl+2) = - (T4 - T3) ♦ 1 
CtLSTl*3) = - <TS - T4) ♦ 1 
C(LSTlt4) = - (T8 - IS) ♦ 1 

C(LST2 ) = 2CADR TASKl 
C(LST2«.2 ) = 2CADR WSKO 
C(LST2t4 > = 2CADR TASKS 
C(LST2+fl ) = 2CADR lASKA 
C(LST2*8 ) = 2CADR TASKS 
C{LST2»10) = 2CADR TAgco 


01,3403 

54 064 

1 WTLST2 

T3 

WAITTEIP 

01,3404 

50 002 

0 

INDEX 

0 

01,3405 

3 0000 

1 

CAP 

0 

01,3406 

54 002 

1 

TS 

0 

01.3407 

3 4712 

1 

CAP 

QIE 

01,3410 

6 0064 

0 

AO 

WAITIEtP 

01,3411 

SO 002 

0 

INDEX 

0 

01,3412 

270.377 

1 

ADS 

Lsn -1 

01,3413 

4 0064 

1 

CS 

WAITIB4P 

01,3414 

50 002 

0 

INDEX 

0 

01,3415 

1 3272 

1 

TCP 

WILSTA 


CIA) = -ITO - T 
ME)t VALUE INTO O. 


CIA) = -ITO - T ) 1 . 

N 







AsssetE i»nsias 249 of agc progjwm couMaJS ay HAs^ 2021111-041 


•AI'lt.IST 


P02S5 

0208 

0207 

0208 
0209 

0270 

0271 

0272 

0273 

0274 

0275 
0278 

0277 

0278 

0279 

0280 
0281 
0282 

0283 

0284 

0285 
0288 

0287 

0288 

0289 

0290 

0291 

0292 

0293 

0294 

0295 

0290 

0297 

0298 

0299 

0300 


RTIBEIS HSKB OK T3 OJPT TO DISPATQl KAITLISTHJ TASK. 


20 

22 


lASr 1193 
LAST 1068 


BBP 18 LAST 1008 


01.3410 

01,3417 

01.3420 

01.3421 

01.3422 


0 0006 1 
04 007 1 
54 016 1 
0 0006 1 
22 012 1 


T3JSJPT 


EXTB© 

ROR SUPBimc 
TS BANKHIPT 

EXTB© 

(kch cniPT 


REF 

9 

LAST 1170 

01.3423 

3 4073 

1 

T3RUPr2 CAP 

NEai/2 

HEP 

34 

lAST 1200 

01.3424 

57«407 

0 

XCH 

LSn *1 

HEP 

35 

LAST 1201 

01,3425 

57«406 

1 

XCH 

LSn +6 

HEP 

35 

lAST 1201 

01.3428 

57«405 

1 

XCH 

LSn *5 

HEP 

37 

lAST 1201 

01,3427 

57«404 

0 

XCH 

LSn *4 

hep 

38 

LAST 1201 

01,3430 

57«403 

1 

XCH 

Lsn *3 

HEP 

39 

LAST 1201 

01,3431 

57«402 

0 

XCH 

Lsn *2 

REP 

40 

LAST 1201 

01.3432 

57-401 

0 

XCH 

LSn ♦! 

HEP 

41 

LAST 1201 

01,3433 

57«400 

1 

XCH 

Lsn 

HEP 

36 

LAST 1193 

01,3434 

6 4672 

0 

AD 

POS4AX 

REP 

4 

LAST 1196 

01,3435 

26 026 

1 

ADS 

TD«3 

R0» 

3 

LAST 577 

01,3436 

54 734 

0 

TS 

RJPTACN 

REP 

248 

LAST 1190 

01.3437 

4 4714 

0 

CS 

2EHO 

REF 

. 4 

LAST 1201 

01,3440 

54 734 

0 

TS 

RJPTACN 




01,3441 

0 0006 

1 

extehd 


HEP 

4 

LAST 1197 

01,3442 

4 5174 

1 

DCs 

ENDTASC 

REP 

28 

LAST 1197 

01,3443 

53«431 

1 

DXCH 

LSr2 ♦leD 

REP 

29 

LAST 1201 

01,3444 

S3«427 

0 

DxCH 

LST2 ♦I4D 

HEP 

30 

LAST 1201 

01,3445 

53«425 

1 

DxCH 

LSr2 +12D 

REP 

31 

last 1201 

01,3446 

S3«423 

1 

DkCH 

LST2 +I0D 

REP 

32 

LAST 1201 

01,3447 

S3«421 

0 

DxCH 

Lsr2 -i-aD 

HEP 

33 

LAST 1201 

01,3450 

53«417 

0 

DXCH 

LST2 +6 

REP 

34 

LAST 1201 

01,3451 

S3«415 

1 

DXCH 

LST2 +4 

REP 

35 

LAST 1201 

01,3452 

53«413 

1 

DXOI 

LST2 4-2 

REP 

36 

LAST 1201 

01,3453 

53«411 

0 

DXCH 

LST2 

REP 

207 

LAST 1193 

01,3454 

56 001 

0 

XCH 

L 




01,3455 

0 0006 

1 

EXTEND 


REP 

21 

LAST 1201 

01,3450 

01 007 

1 

WRITE 

superbnk 

RBF 

208 

LAST 1201 

61,3457 

56 001 

0 

XCH 

L 




01,3460 

52 006 

0 

DICE 
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READ CURRENT SUPEHBANK VAUB AND 
SAVE WITH B AND P BANK VALUES. 


dispatch waitlist task. 


1 . MOVE UP LSn CCNTENTS, BfTERING 
A VALUE OP 1/2 +1 AT THE BOTTCM 
POR TB-TS, CORRESPCNDING TO THE 
INTERVAL 81.91 SEC POR BTOTASK. 

2. ffiT T3 = 1.0 - T2 -T USINO LIST 1. 
SO T3 WCNT TICK DURING UPDATE. 


sets ajPTAGN TO +1 CN OVERFLOW. 
DISPATCH TASK. 


SET superbank FROM BBCCN OF 2CADR 
RESTORE TO L FOB DXCH Z. 



I 


*SSB«LB REVISION 249 OP AOC PROtSWM COUMSUS BY NASA 2021111-041 
MIILIST 


P0301 

•302 

•303 

•304 

•305 

•300 

•30T 

•308 

•309 

•310 

0311 

•312 

•313 

•314 

•315 

•3155 

•31« 


HBlVSN, APIER EXEU/riCN OP T3 OvBRPLOir WSK’ 


5213 

2 LAST 1193 TO 1196’ 


51 51# 


BLOC^C 02 
COUNT 02AIAIT 


5 last 1201 
2 LAST 1193 
28 LAST 1193 

1 

23 last 1201 
22 LAST 1201 


19 LAST 1201 
24 LAST 1202 
29 LAST 1202 
11 LAST 128 


5213 10 T34 0 

5214 3 5155 0 

5215 54 006 0 

5216 1 3423 0 


wartVBR CC3 
CAP 
TS 
TCP 


5217 3 0016 0 

5220 0 0006 1 

5221 01 007 1 


RJPWGN 
KAIlsa 
BBANK 
T3HJPT2 

OA BANKHipT 
BXTBO 

•RITE SUPERBNK 


5222 

5223 

5224 

5225 

5226 

5227 
5230 


0 0006 1 
22 012 1 
3 0016 0 
56 006 1 
52 011 0 
0 0003 1 
5 0017 1 


RBSLpe 


BjcroiD 
WCB QBUPT 

NOQHSN ca bankrupt 

XCh BaA>6c 
NOaBHS4 DXCM ARJPT 

RHjWT 
RBSU5e 


20’35 OCT. 28,1968 SATOAP ,007 PACB 1202 
USBbS PACB NO. 12 B3 S3 


IP +1 BBimW TO T3HUPT, IP -0 RESU«. 
DISPAIQI NEXT TASK IP IT WAS DUB. 

BBSTWB SUPBRBANK before RBSUB Is done 
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I 

I 


I 


I 




ASSaeiE RBVISION 249 OP AOC PROCfflAM COLOSSUS BY NASA 2021111-041 
L WU'RjIST U®R«S PAQB no, 13 B3 S3 

P031T LONOCALL 

R0318 PBOOBAM DBSCRIPTIQN DATB- IT HABW 186T 

R0319 PRO0RAM WRITTEN BY W.H. VANDBVER UB ffiCTICN WAITLIST 

110320 MOD BY- R. 1ELANS<H TO ADD DOCUMENTATION ASSa«LY SUNDISK BEY. 100 

B0321 FUNCTIONAL DBSCRIPTICN- 

110322 LONOCALL IS CAIIED WITH THE DELTA TINE ARRIVING IN A,L SCALED AS TINE2,TIlEl WITH THE 2CADH OP THE TASK 

R0324 IMEDIATELY FOLLOWING THE TC LCNGCALL. FOR EXAMPLE, IT MIGHT BE DONE AS FOLLOWS WHERE TINELOC IS THE NAfE OP 

R0326 A DP REGISTER CONTAINING A DELTA TI!E AND WHERE TASKTCDO IS THE NAME OF THE LOCATION AT WHIQI LONOCALL IS TO 
R0328 start 

R0329 CALLING SEQUENCE 
A0330 
A0331 
A0332 
A0333 

H0334 NORMAL EXIT MODE- 

R0335 1>. TC waitlist 

B0336 2) . GICB (TO L*3 OP CALLING ROUTINE 1ST PASS THRO LCNOCKCL) 

R033T 3) - DTCB (TO TASKCVER ON SUBSEQUFNT PASSES THRO LCNOCYCL) 

R0338 alarm OR ABORT EXIT MCDE- 
R0339 NONE 

R0340 OUIPUT- 

H0341 UMtJritE AND LCNOTIiE^-l r DELTA TIME 

B0342 LONGEXIT AND LONGEXIT*! = RETURN 2CADR 

R0343 LCMOCADR AND LCNGCADR>1 = TASK 2CADR 

R0344 A = SINGLE PRECISION TIN® FOR WAITLIST 

B0345 erasable INITIALI2ATI0N- 
B0346 A = MOST SIGNIFICANT PART OP DELTA TIME 
R034T L = LEAST SIGNIFICANT PART CP DELTA TIME 
R0348 O = ADDRESS OP 2CADR TASK VALUE 

R0349 DSIRIS- 
R0350 A.Q.L 

B0351 LCNGCADR and LCNGCADR*! 

R0352 LGNGExIT AND LGNGEXlT+l 

R0353 LCNGTINE AND LCNGrIi«»l 

m,354 4C4* the following is TO be in FIXED-FIXED AND UNSWiTCHED BRRASIBIE *** 


0355 

0356 
035T 

REF 42 LAST 1201 
REF 1 

5231 

E3,1400 

5231 

53«140 1 

BLOCK 

EHANK= 

lghgcail dxch 

02 

Lsn 

L(KGTl>ffi 

OBTAIN 

THE 

Dei.TA TIMES 

0358 


5232 

0 0006 1 

EXTEND 


obtain 

THE 

ZCADR 


EXTO© 

DCA TIECLOC 

TC LCNGCALL 

2 CADH TAaCTODO 




^SSaeLE KEVISICW 249 OP AOC PHOGHAM C0UM3US BY NAM 2021111-041 
•WltlST 


300 last 1200 


8384 


0385 

REP 

8388 

REP 

8388 

REP 

B038T 

*** 

8388 


8389 

HEP 

8370 

REP 

0371 

REF 

0372 

REP 

0373 

REP 

H0374 


8375 


0378 

REP 

837.7 

REP 

8378 

REP 

8379 

A0380 

*0381 

*0382 

*0383 

*0384 

REP 

0385 


0388 


0387 

BBF 

0388 

REP 

0389 


0390 


*0391 


0392 

REP 

0393 

REP 

0395 

REP 

0396 

REP 

0397 

REP 

0397 

REP 

0399 

REP 


<3 LAST 1203 
1 
1 


last 1204 


last 1203 


4 LAST 1204 


5233 

5 0002 0 

WK 

0 

5234 

3 0001 0 

DCA 

0 

5235 

53>134 1 

DX«L 

UKOCADR 

5238 

0 0006 1 

BXTBTO 

S23T 

3 5242 0 

DCA 

LOCLzCDR 

5240 

52 006 0 

DTC8 


B3,1400 


EBANK: 

: Lsn 

5241 

03461 1 

LOCL2CDR 2CAOR 

LNQCALL2 

5242 

02063 0 



lY BB IN A 

SWIlQiaD bank, incubino 

ITS bramble 

01,3481 


bank 

01 

• 1202’ 

139 1394 

COUNT 

01/WAIT 

01.3481 

23«435 1 

LNOCALL2 LXCM 

UHGEXIT +1 

01,3462 

3 4711 1 

CA 

TWO 

01,3463 

26 002 1 

ADS 

0 

01,3484 

55«434 1 

TS 

LCNGEXIT 

T TAac LCNQCYCL *** 



01,3485 

0 0006 1 

lcnocycl Extend 


01,3488 

4 3477 1 

DCS 

DPBIT14 

01.3467 

21«140 1 

DAS 

LCNOTIME 

01,3470 

11«140 1 

CCS 

LCNGTIiE +1 

01.3471 

1 3510 1 

tcf 

MUCHTIME 

01,3472 

13 473 0 

NOOP 



20’35 OCT. 28.1968 MTRAP .OOT PAGE 1204 
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NOP 00 TO THE APPROPRIATE SirlTCMH) BA* 
POR THE best op LCNOCALL 


01.34T3 

01,34T4 

01,34TS 

01.34TS 

01,34TT 


01.3500 

01.3501 

01.3502 
83,1400 

01.3503 

01.3504 


1 3474 1 TCP 
11«137 1 CCS 
1 3510 1 TCP 
00000 1 DPBIT14 OCT 
20000 0 OCT 


+1 

IXKOTIi* 

MUCHTIMB 

00000 

20000 


3 4675 1 
2T«140 1 
0 5140 1 

03515 0 
02063 0 


LASTTIMB CA BIT14 

ads LCNOTIME +1 
TC WAITCIST 
BBA*= LSn 
2CADR GEICADR 


01,3505 3 3517 1 LLNGRTRN CA TSKCVCDR 


MVE THE CORRECT BB FOR HEUJTOt 

cbtoin the return address 


CAN WE SlCCESFULLY TAKE ABOUT 1.25 
MINUTES OPP OP LCNOTIi'C 


THE REASCNIBG BEHIND THIS PART IS 
INVOLVED, taking INTO ACCOlOT THAT THE 
WCEDS MAY NOT BE SIGNED CORRECTED (DP 
BASIC INSraXlTICNS 

DO NOT SIGN CORRECT) AND THAT WE SUBtRAC 
TH> BIT14 (1 (VEH HALF THE POS. VAIIE 
BEPRESENTIBU 8 IN SINCXE WORD) 

CAN’T GET HERE 


LCNOCALL 

OBT BACK THE CORRECT DELTA TPCR WAITI^IST 


THE ENTRY TO OUR LCNGCADR 


set IT UP SO THAT CNI.Y THE FIRST EXIT IS 





lU 
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L 

•AITLIST 







0400 

RSF 

3 

LAST 1204 

01,3506 

53«435 

0 

OXCH 

LCNGBXIT 

0401 




01,350T 

52 006 

0 

dtcb 


0402 

BSP 

T2 

lAST 1204 

01,3510 

3 46T5 

1 

MUCHTI* CA 

BIT14 

0404 

BBF 

51 

LAST 1204 

01,3511 

0 5140 

1 

TC 

waitlist 

0405 

HEP 

45 

LAST 1204 

B3,1400 



raANK: 

Lsn 

0400 

HEP 

1 


01,3512 

03465 

0 

TPADR 

LCNOCYCL 

0400 

HEP 

1 


01,3513 

02063 

0 



0408 

BBP 

1 


01,3514 

1 3505 

0 

TCP 

LQ«3R1») 

110409 



*♦# WAITLIST TASC GETCADR *** 



0410 

REP 

2 

LAST 1204 

01,3515 

S3«134 

1 

GETCADR DXCH 

LCNQCADR 

0411 




01,3516 

52 006 

0 

DTCB 


0412 

BBP 

63 

LAST 1195 

01,351T 

05213 

1 

tskovodr GEMADR 

TASKtVER 


20’35 OCT. 28,1968 SATRAP .OOT PA3S 1205 

U^US PAOB NO. IS Ba S3 

TO THE CALLER OP LCNOCALL. 

THE REST are TO TASKOVER 

•E HAVE 0«R CUR ABOUT 1.25 MINUTES 
SO SET UP FOR ANOIHER CYCLE THROUCH HERE 


NO» EXIT PROPERLY 


GET THE LCNOCALL THAT WE WISHED TO START 
AND TRANSFER CONTROL TO IT 



BBVISICW 249 CF AOC PBOfflAM COLOSSUS BY IttSA 2021U1-041 

iatiudb looituk subroutines 

SeaaiTINB lo owvert rad vectoe at given ti« to iat,lq« and alt 
CAIA^INO SEQIBICE ' 

l—l OILL 
^ IAT-LCNG 

suftiouriNBs usa> 

R-10-RP.AhCt«N, SEICWMA , SEIRE 
ERASABLE INIT. RSQ. 

AxO,-AYO,AzO.TBI>HEM (set at launch TIME) 

«JHAV = POSITICN vector f«lERS B -29 
MPAC_ time (CsBCs B-28) 

^ 

OUTPUT 

LATITVEE in LAT (REVS B-o) 

UWGIIUDB IN UNO (REvS B-n) 
altitude in alt f«IERS B_29 

REE I 30,3TT8 bank 30 

1 13,2000 SBILOC LAILCNO 

13 j 2322 


20’35 OCT. 28,1968 SAIBAP ,00T PACE 12O6 
USBIUS PALE NO. - 1 Bo S3 


0021 

REF 

19 

894 

0022 

0023 

REF 

1 

0024 

0025 

0026 

REP 

20 

last 1206 

0027 

0028 

HEP 

2 

last 88 

0029 

BBP 

6 

I^ST 1176 

0030 

0031 

HEP 

24 

last 894 

0032 

REF 

1 

0033 

0034 

REP 

3 

LAST 599 

0035 

0036 

REF 

21 

last 1206 

0037 

REP 

1 


0038 

0039 

REP 

2 

last 592 

0040 

0041 

REF 

22 

last 1206 

0042 

0043 

REP 

23 

LAST 1206 


E4,1551 

13.2322 

13.2323 

13.2324 

13.2325 

13.2326 

13.2327 

13.2330 

13.2331 

13.2332 

13.2333 

13.2334 

13.2335 

13.2336 

13.2337 

13.2340 

13.2341 

13.2342 

13.2343 

13.2344 

13.2345 
13,2348 
13,2347 


®01KT i3/LT-lG 
BBANK= ALPHAv 


40220 0 

lat-lcng sro 

®TPD 

02242 1 


INCCHPEX 

00001 0 


OD 

24007 0 

STOVL 

6D 

02152 0 


ALPHAv 

51406 1 

pua( 

ABvAL 

16310 1 

STODL 

ALPHAM 

11456 0 


28R0VBC 

71414 0 

BOPF 

COS 

01743 0 


UNAFLAG 

26 335 0 


CALLRTRP 

77624 1 

callrthp call 


55 366 1 


H-TO-HP 

77656 1 

UNIT 


38152 1 

SlCALL ALPHAV 

265 23 1 


SBTQAM4A 

77624 1 

CAU2 


265 33 0 


SBIRB 

63545 0 

DLOU) 

DSO 

02152 0 


ALPHAv 

63525 0 

POOL 

DSO 

02154 0 


AIJWv *2 


SAVE TI.'E IN 6-7D FOR R-TO-RP 

0-5D= R FOR R-TO-HP 

AflS. VALUE OP B FX3R ALT POBMUIA BELOW 

set mpaCso for earth, ncn-zero for MOCH 

USB COS(O) TO (ET NCN-ZERO IN MPAC 
OrEARTH, IzMOCN 


HP vector CCNvERTED FRCM R B-29 
UNIT HP B_i 

U2= 1/2 SINL FOR SETRE SUHR BEI.OW 
SET GAM4A=B2/A2 FOR EARTH, =1 FOR MOON 
SCALED B_i 
CALC HE iETERS B-29 


20*35 OCT. 28,1968 SATBAP .OOT PAOE 120T 



h utiiuib umoitudb subrcxttinbs 


USBRoS PAOB NO. 2 B4 S3 


0044 




13.2350 

75415 0 

DAO SORT 


0045 




13.2351 

76405 1 

DMP a,iH 


0048 

BEP 

1 


13.2352 

00011 1 

CMMBP 


004T 

BEP 

S 

LAST 838 

13.2353 

14021 1 

STODL COSTH 

COSflAT) B-l 

0048 

BEP 

24 

LAST 1206 

13.2354 

02156 1 

ALPHAV +4 


0049 

BEP 

5 

LAST 838 

13.2355 

34023 1 

SICALL. SINTH 

SIN(IAT) B-i 

0050 

KEP 

1 


13.2356 

26463 1 

ABCTAN 


0051 

BEP 

14 

LAST 890 

13.2357 

15104 0 

STODL LAT 

LAT Bo 

0052 

BEP 

25 

LAST 120T 

13.2360 

02152 0 

ALPHAV 


0053 

BEP 

6 

LAST 120T 

13.2361 

14021 1 

STODL COSIH 

COS(LCNO) B-l 

0054 

BEP 

26 

LAST 120T 

13.2362 

02154 0 

ALPHAV +2 


0055 

BEP 

0 

LAST 1207 

13.2363 

34023 1 

SlCALL SINTH 

SIN(LCNO) B-l 

0056 

BEP 

2 

LAST 1207 

13.2364 

26463 1 

ABCTAN 


605T 

BEP 

10 

LAST 889 

13.2365 

15106 1 

STODL LCNO 

LCNO. REVS B-o IN RANGE - 1/2 TO 1/2 

0058 

REP 

3 

LAST 1206 

13.2366 

02310 1 

ALPHAM 


0059 




13.2367 

77625 0 

DSU 

ALT= B-RE meters B-29 

0080 

BEP 

T 

LAST 764 

13.2370 

02241 1 

ERADM 


0081 

BEP 

T 

LAST 634 

13,2371 

35110 1 

SlCALL ALT 

EXIT WITH ALT ^®lEaS B -29 

0062 

BEP 

2 

LAST 1206 

13,2372 

02242 1 

INCORPEX 




I 


ASSB»B RBVISICK 249 op AOC PBOtWVM COLOSSUS By KASA 2021111-041 

unnoe lonoitudb subroutines 


22^4 WT,UNa,ALT AT GIVEN TI* TO RADIUS VECIOB 


MOSS 

Booeo 

BOOST 

Booes 

BOOOS 

BOOTO 

BOOTl 

BOOT2 

boots 

BOOT4 

BOOTS 

BOOTS 

BOOTT 

BOOTS 

00T9 


U-1 CHLL 
I- lALOTORV 

BMOiriNES USED 

aBrQA»« , SBTRB , RP-TO-R 
BBASAaE INIT. REO. 

^BO.ATD, AzO, TBPHS4 SET AT LAUNCH TI^B 
IAT~ latitude (revs Bo) 

UMO— LCNOITUDE (revs Bo) 
alt— ALTITUW (^E^ERS) B-zg 
MPAC— TIfC (CSECS B-gg) 

=® ^ •'ixTO earih radius 

W<AI’lAa=o BOB earth, 1 FOR MQCN 
OUTPUT 


b-vbctqr in ALPHAv 


0080 

0081 

0082 

BHF 

3 

IAST 1207 

0083 

0084 

HE 

2 

last 1206 

0085 

0080 

BO' 

15 

LAST 1207 

e08T 

iBF 

2 

LAST 1207 

0088 

0089 

BHF 

16 

last 1208 

0090 

B8F 

11 

last 1207 

0091 

0092 




0093 

0094 

BBF 

IT 

LAST 1208 

0095 

0096 

0097 

IHF 

12 

last 1208 

0098 

BBN 

2T 

last 1207 

0099 

0100 

BH' 

3 

LAST 1208 

0101 

BHF 

T 

last 1206 

0102 

BHF 

25 

LAST 1206 

0103 

0104 

0105 

BHF 

1 


0106 

BHF 

T 

LAST 894 

0107 

DBF 

28 

last 1208 

0108 

BHF 

8 

LAST 1207 


uerERs B. 

13.2373 

13.2374 

13.2375 

13.2376 

13.2377 

13.2400 

13.2401 

13.2402 

13.2403 

13.2404 

13.2405 
13,2408 
13,2407 

13.2410 

13.2411 

13.2412 

13.2413 

13.2414 

13.2415 

13.2416 

13.2417 

13.2420 

13.2421 

13.2422 

13.2423 

13.2424 

13.2425 

13.2426 

13.2427 
13,2430 


•29) 

40220 0 
02242 1 
00001 0 
34007 1 
26523 1 
73545 1 
01104 0 
65275 1 
00011 
01104 
65346 
01106 
57358 
71525 
01104 
71525 
01106 
55475 
41456 
36152 
26533 
43145 
11456 
01743 
26425 
77746 
77624 
55341 
16152 
02241 


LALOTQKV STO 


DLCMD 


DMPR 


1 

0 

0 

1 

0 

0 

0 

0 

1 

1 

0 

1 

0 

0 

0 

0 

0 

1 

1 

1 

0 

1 


SBTPD 

INCORPEX 

OD 

SICALL 6D 

SETQAMAA 
SIN 
LAT 
POOL 
OAMRP 
LAT 
POOL 
LCNG 
DMPR 
COS 
LAT 
COS 
LO« 

VDEP 

puai 


COS 

SIN 
POOL 

POOL 

DMPR 
UNIT 
STCALL ALPHAv 
SETOE 


DLOAD 


COS 

CALLRPRT CALL 
STOOL 


BOPF 

ZEROVEC 

LUNAPLAG 

CAILRPRT 


HP-TO-R 

ALPHAv 

ERADM 


20’35 OCT. 28,1968 SATRAP .»»I MOB 1208 
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iat,lo«,alt TO H vector 

6-7D= tb« for RP-TO-R 
0AJ>MA=B2/A2 for earth, 1 FOR mOI B-1 

COS(LCNO)COS(IATI IN MPAC 
UNIT HP= SIN(LQ«3)COStLAT) 2-3D 

PC 2 QA»«:4SIN(LAT» 0-1D 

0-10= GAM4A*SIN(LAT» B-2 
2-3£>=C0S(LAT) B-i TSSWOSEARILY 

2-3D=SINCLQ«5)C0S(IAT» B_2 

4-5D=C0S(IAT) B-i TfimSWRILY 

PO 4 MPAC= COStLQNG)COS(:lAT» B-2 
0-5D= UNIT RP FDR RP-TO-R SUB*. 

ALPHAV +4= SINL FOR SETRE aiB*. 

HE FETERS B-29 

set MPACrO FOR EARTH, NCN-2IWO FOB .NOCN 


USE COS(O) TO GET NCN-ZERO I* N9!AC 

Exit with unit r vector in fvic 


PO 4 

PO 2 
PO 4 

PO e 
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20*35 OCT. 28,1908 SATHAP .007 PAGE 1209 



L 

I>TITUDE 

LXWI-IUIB 

StfiBaiTINES 




USBIUS PAOB NO. 4 B4 

0109 




13,2431 

74215 1 

CAD 

VX3C 

(RE ♦ ALT) (UNIT R) l«IER3 B-30 

0110 

REP 

8 

lAST 1207 

13,2432 

OHIO 0 


ALT 


0111 

HEP 

29 

LAST 1208 

13,2433 

02152 0 


AliWAV 


0112 




13,2434 

TTTT2 0 

VSLl 


B MEIERS B-29 

0113 

REP 

30 

LAST 1209 

13,2435 

36152 1 

SICAU, ALWAV 

EXIT WITH R IN FBIERS 0-29 

0114 

HEP 

4 

LAST 1208 

13,2436 

02242 1 


INCOHPEX 



R0115 SlBBOUTINE TO CCMPOTE EARIH RADIUS 
R0116 WPITT 

BOUT 1/2 SIN IAT IN ALPHAV +4 
• R0118 OUIPUT 


R0119 


EARm RADIUS IN BRADM AND MPAC (>eiEHS 0-29) 




0120 




13,2437 

63545 0 

GETERAD DLOAD 

DSO 

0121 

HEP 

31 

LAST 1209 

13,2440 

02156 1 


ALPHAV +4 

0122 




13,2441 

44352 0 

SLl 

EDSU 

0123 

hep 

1 


13,2442 

11454 1 


DPi/2 

0124 




13,2443 

44275 1 

DMPR 

BDSU 

0125 

REP 

1 


13,2444 

26460 1 


BE 

0126 

REP 

2 

LAST 1209 

13,2445 

11454 1 


DPi/2 

0127 




13,2446 

75465 1 

BDD^r 

SORT 

0128 

REP 

1 


13,2447 

26454 0 


B2XSC 

0129 




13,2450 

77622 1 

SR4R 


0130 

REP 

9 

LAST 1208 

13,2451 

02241 1 

store 

ERADM 

0131 




13,2452 

77616 0 

R\(0 



SIN**2CL) 

C 08 ++ 2 IL) 


R01311 THE FOLLOWING CCNSWNTS WERE CCMPUTSD WITH A=6378168, 0=6356784 INTERS 
R01312 B2XSC= B+*2 SCALED B-gi 
H01313 B2/A2= fttc42/A**2 SCALH) B-1 

R01314 BB=(1-B**2/A**2) SCALED B-0 


0132 

13,2453 

00446 

1 

B2XSC 

2060 

.0179450689 

SCALED B-51 

0132 

13,2454 

00305 

1 





0133 BBP 4 LAST 1176 

04,3453 



DPi/2 

= 

XIWIT 


0134 

13,2455 

mil 

0 

B2/A2 

ioec 

.9933064884 B-l 

GA>MA= B**2/A**2 B-i 

0134 

13,2456 

05254 

1 





0135 

13,2457 

00155 

0 

EE 

2060 

6.6935116 E-3 

Ci-fl*+2/A4*2) B-0 

0135 

13,2460 

25250 

1 





0136 

13,2461 

00302 

0 

ERAD 

2060 

6373338 B-29 

PAD RADIUS 

0136 

13,2462 

17755 

0 






1 

I 



ASS»«LB RBVISim 249 OP AOC PROWAM COLOSSUS BY NASA 20211U-041 
LAtITUK IXKOItvDB SIBROUTINES 


P013T AHCiAN SOBHOUtINE 
■0138 CALLIWJ SSOJENtS 

>0139 SIN THElA IN SINTH B-j 

■0140 COS IN cosm b-i 

■0141 CALL ArCiAN 


20’35 OCT. 28,1968 SATBAp ,007 PAOB 12io 
USSkS PAGE NO. 5 E4 S3 




OUTPUT 


0168 

0169 BEP 
OITO REP 
91T1 

01T2 REP 
91T3 REP 
91T4 REP 
01T5 


tAST 1207 
IAST 1207 

last 1210 

LAST 715 

last 1210 


last 1209 
last 1210 


LAST 1210 

last 1210 


LAST 1210 

last 1210 


LAST 708 


13,2483 

13.2464 

13.2465 

13.2466 

13.2467 

13.2470 

13.2471 

13.2472 

13.2473 

13.2474 

13.2475 

13.2476 

13.2477 

13.2500 

13.2501 

13.2502 

13.2503 

13.2504 

13.2505 
13 , 25 06 
13,2507 

13.2510 

13.2511 

13.2512 

13.2513 

13.2514 

13.2515 

13.2516 

13.2517 

13.2520 

13.2521 
13,25 22 


26465 1 



CUKVPUr 

63545 0 

CLRCVPUr DUMD 

DSO 

00023 0 



SINTH 

63525 0 


POOL 

OSQ 

00021 1 



CQSIH 

77615 0 


DAO 


75454 0 


Bffl 

SORT 

26511 0 



ahcwnxx 

40065 0 


BDCV 

BCV 

00023 0 



SINTH 

26516 1 



A’IAN=90 

67542 0 


SRl 

Asm 

00025 0 


STORE 

THEDA 

50125 1 


POOL 


00021 1 



cosm 

265 0 5 0 



NBQCOS 

43545 1 


DLCMD 

RVO 

57545 1 

NEHCOS 

OLCMD 

DCCMP 

43244 1 


BPL 

DAD 

26513 1 



NEGOUT 

11454 1 



DPI/2 

00025 0 

ahctanxx store 

mBTA 

77616 0 




52025 1 

NBGOUT 

DSU 

GOTO 

11454 1 



DPi /2 

26511 0 



ARCTANXX 

75345 1 

AWN=90 

DLCAD 

SIGN 

11502 0 



LCDP1/4 

00023 0 



SINm 

00025 0 


STORE 

THEDA 

77616 0 


Rvno 



A1«N=o/ 0 ®T IHBlArO 




2DZBBO = 


20’35 OOr. 28.1968 SATBAP .mT HUX 1211 


MITT 

lt01T8 

lt01T9 

R0160 

R0161 

110182 

R0163 

110164 

R018S 

noise 

HOIST 


ASSBCLB BBVISICW 249 OP AOC PROaiAM COLOSSUS By MASA 2021111-041 
lATinOe UMOI1US SIPROUTINES 
SSrCWMA SlRlOUriNE 

SlWaiTINE TO SET OAMAl FOR THE LAT-UNO Al® lALOTORy SUBHOUTINES 

QW4A = B442/A442 FOR EARTH (B-D 
QA^MA r 1 FOB MOCN (B-D 

CALLINO SEauBTCB 
L CALL 

L*1 ffiTOAJMA 


INPUT 

LUNAFLAOrO POR EAR1H,=1 FOR MOCN 
OUTPUT 

(W«4A IN CHMRP (B-i) 


USBIUS PAGB HO. • 84 S3 




0188 




13,2523 

43145 

0 

STOV'MA DU»D 

BOFF 

0189 

REF 

1 


13,2524 

26456 

1 



B2/A2 

0190 

REP 

28 

LAST 1208 

13,2525 

01T43 

0 



llnaplag 

0191 

REF 

1 


13,2526 

28531 

1 



®Ta«x 

0192 




13,25 2T 

TTT35 

0 


SLOW 


0193 

REP 

1 


13,2530 

11454 

1 



iBl 

0194 

REF 

3 

last 1208 

13,2531 

00011 

1 

SBTCPey 

STORE 

GAMHP 

0195 




13,2532 

TT616 

0 


R/Q 


0198 




0010 



OAHBP 

= 

8D 


branch POR EARTH 
earth aA»4A 


MOCM OAmi 


# 


AaaBKLE RBVISICN 249 0^ A® PKOGBAM OBUnfflUS By NASA 2021111-041 
lATInCe LOIOIIUDS slbbojtinbs 
...... SETHB S®KCOTINB 


20 ’35 OOT. 28,1988 SATRAP .OOT PAOB 1212 
UffilUS PACB NO. T E4 S3 


110198 smtCXlTINB TO SBT KB (BAItm OR MOON SSOOilS) 

110199 RB= BM PQR MOON 

>0200 BE= HRBP FOR FIXED EAR1H RADIUS OB OBBtnBD RF FOR FISCHER ELLIPSOID 

>0201 CALLING SEQUBKB 
>0202 L CALL 

>0203 1,*1 SERB 

>0204 SlSmUTINES USSl 
R020S OEIKIAD 

>0208 INPUT 

R020T BBADPLAGfco FOR FIXED BE, i FOR CO-ffinUHS ffi 

B0208 AUHAv *4= 1/2 SINL IF OEIBRAD IS (CaULH* 

>0209 LlWAFLAG=o FOR EARIH,=1 FOR MOON 

R0210 OUTPUT 

>0211 EHADIt 504BM FOR MOOf IieiBRS B-29>) 

>0212 EBAIWr BRAD OR CCMPUIHJ RF FOR EARJF (C8EIER3 B-29) 





13.2533 

T1220 a 

SEINE 

STQ 

DLQAD 

REF 

1 


13,2534 

00051 (D 



®THEX 

REF 

1 


13,2535 

26560 (D 



504IW 




13,2538 

T1214 ffi 


BCK 

DU»D 

REF 

2T 

LAST 1211 

13,2537 

01703 tt 



ILNAPIAO 

REF 

1 


13,2540 

26550 (D 



TSTHLSIW 

REF 

1 


13,2541 

26462 (D 



EBAD 




13,2542 

45014 OD 


BCFF 

CALL 

REP 

14 

LAST 890 

13,2543 

00742 CD 



ERADPLAG 

REP 

1 


13,2544 

26546 a 



SBTOOC 

REP 

4 

LAST 848 

13,2545 

26437 ® 



GETEHAD 

REF 

10 

LAST 1209 

13,2548 

36241 ® 

S5TRXX 

SlCALL ERADM 

REF 

2 

LAST 1212 

13,2547 

00051 ® 



SETHEX 




13,2550 

77214 ® 

TEFTRLSHM BCN 

VLQAD 

REP 

IS 

LAST 1212 

13,2551 

00702 a 



BRADPIAQ 

REP 

2 

LAST 1212 

13.2552 

26546 a 



SETRXX 

REP 

9 

LAST 899 

13.2553 

02026 a 



BLS 




13,2554 

64446 ® 


AEVAL 

SR2R 




13,2555 

77650 a 


GOTO 


REP 

3 

last 1212 

13,2558 

26546 a 



SEIWOC 

REF 

12 

last 708 

0051 


»TREX 

s 

S2 




13,2557 

00065 a 

S04BM 

2DBC 

1738090 B-Z9 




13,K60 

01265 a 





Branch for moon 


BBADFLAG=0 FOR FIXED RE,1 FOR CCMPUIFD 


Exit with be or hm mtiers b-29 

BRADFLAO=;0,SET ro=hls 
=1 B0=:IW 


SCAIJS FRCM B-27 TO B-29 


1«1EHS B-29 (MOCN RADIUS) 



